DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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| #eF LLE®®1D**DBGEVENT 
DDDDDDDD ~ ©=—-_- BBBBBBBB GGGGGGGG EEEEEEEEEE vv VV EEEEEEEEEE NN NN TITTTTTTTT 
DDDDDDDD = BBBBBBBB GGGGGGGG EEEEEEEEEE VV VV EEEEEEEEEE NN NN TITTITTTTT 
DD DD BB BB GG EE vv vw EE NN NN TT 
DD DD BB BB GG EE vv vv EE NN NN TT 
DD DD 6B BB GG EE VV vv EE NNNN NN TT 
DD DD BB BB GG EE vv vv EE NN N TT 
DD DD BBBBBBBB GG EEEEEEEE VV VV EEEEEEEE NN NN NN TT 
DD DD BBBBBBBB GG EEEEEEEE VV VV EEEEEEEE NN NN NN TT 
DD DD BB BB GG GGGGGG EE vv vv EE NN NNNN TT 
DD DD BB BB GG GGGGGG EE vv VV EE NN NNNN TT 
DD DD BB BB GG GG EE wow éE€é NN NN TT Emre 
DD DD BB BB GG EE VW Ww EE NN NN TT ete 
DDDDDDDD ©=—- BBBBBBBB GGGGGG EEEEEEEEEE vv EEEEEEEEEE NN NN TT fen 
DDDDDDDD = BBBBBBBB GGGGGG  EEEEEEEEEE vv EEEEEEEEEE NN NN TT oa 
LL 111111 SSSSSSSS 
LL eeeeel $5555555 
LL 11 SS 
LL Il 55 
LL 1] $5 
LL I] $5 
LL Il SSSSSS 
LL Il $55555 
LL Il $$ 
LL 1] $5 
LL 1 $5 
LL 11 $5 
LLLLLLLLLL «©«TITTII) «©=—SSSSSSSS 
LLLLLLLLLE §=©>sST)©«=—SSSSSSSS 
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ver 00 1ee8e 
1 MODULE DBGEVENT (IDENT = ‘V04-000") = 
BEGIN 
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te COPYRIGHT s 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


ie THIS oe 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bi Cee a a THE 


. 
* 
t 
® 
® 
te IN T Vv T NOTICE. 0 OTHER * 
i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
4 * 
!t TRANSFERRED. * 
4 ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* 
® 
® 
- 
* 
® 
® 
® 


:® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
ie CORPORATION. 


ie DIGITAL ASSUMES NO RESPONS 


ITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHI 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

4 

1 

1 

a 

1 

1 

1 

1 

1 

: 

1 Lee RRR REA AAEAARAAAEAAAEARAAAEAR AEA AAAAAE ARATE AAA RAERAAAAAKAEEEAAKEERAEE 
1 . 

1 ! WRITTEN BY 

: Sidney R Maxwell IJ] May, 1982 

1 ! MODULE FUNCTION 

: This module contains the support routines for the new pens Ia sel 
1 i 

4 4 
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Included are the syntax and semantics routines for processing the 
new command forms, and the support for the new data structures. 


REQUIRE ‘SRC$:DBGPROLOG.REQ'; 
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WAAWANA AAI POPU NOPUNINININYD 2 9 OO Ot ww 


LIBRARY ‘LIB$:DBGGEN.L32'; 
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40 

41 FORWARD ROUTINE 

4 DBGSEVENT_INITIALIZATION : NOVALUE, ! Initialize the event structures 

4 GSEVENT_SYNTAX ' Handle BREAK/TRACE/WATCH syntax 

44 DBGSEVENT_SEMANTICS ' Handle BREAK/TRACE/WATCH semantics 

45 GSEVENT~SHOW_CANCEL_SYNTAX i [SHOW CANCEL BREAK/TRACE/WATCH. syntax 
46 BGSEVENT-SHOW-CANCEL-SEMANTICS, |! Handle BREAK/TRACE/WATCH semantics 

47 DBGSEVENT- CANCEL ALL: NOVALUE, ' Cancel all eventpoints 

48 GSACTIVATE_EVERTS: NOVALUE, ! Activate all set events 

49 DBGSACTIVATE EVENT: NOVALUE, ' Activate a set event 

50 DBGSDEACTIVATE_EVENTS: NOVALUE, ' Deactivate all set events 

51 DBGSDEACTIVATE EVENT: NOVALUE, ' Deactivate a set event 

26 BGSEXCEPTION RANDLER, ! Event Exception Handler 

5 DEGSPROCES SS_EVENT ' Process an event 

54 BGSUPDATE QATCHPGINTS: NOVALUE, ! Update the current value of each watchpoint 
55 3 ANMOUNEE EVEN Haas ALUE, ' Announce an event 

56 INSQUE 1: ~NOVAL ! Insert a queue entry (ist vs Oth) 

57 90 REMQUE1: NOVALUE® ! Remove a queue entry (Ist vs Oth) 


SF 
16-Sep-1984 00:59:1 AX-11 Bliss-32 V4.0-742 Page 
1e-8ep-1984 9 :16:5 DEBUG. SRC RCID DBGEVENT .832;1 . (1) 
3 191 1 SHOW ee! ayrenth NOVALUE, ! pore an Event Entry 
3 9 136 1 DELET fa NOVALUE, : neg an Event iEntry (et al) 
; 60 195 1 PRINT Sb OURCE VALUE ' Print a source 
; 61 194 1 PRINT~PC_AND INSTRUCT ION: NOVALUE, i Print PC and \ perestton 
3 ? 13 : ORIN cell oats! HANDLER, Handler for above 
: ¢: 199 : GET_WAT ith. SOIT * VALUE : NOVALUE, Get the rey ps of the watch pointing 
: ! varia 
; © 199 1 PRIM_TO_VAL: Roy ' Local cover rout ine for DBGSPRIM_TO_VAL 
. or 4 1 PRIM” TO-VAL_HANDLER, ' Handler for abov 
; 668 : PARSE_WREN_ CONDI TION: NOVALUE, ! Handler to catch. the bad status 
: 5 o¢ 1 : from parsing the WHEN clause 
3 0 1 MATCH_RIGHT_CALL_FRAME; ! Make sure the call frame we got is 
ore 0204 1 ! the one we set bit 15 in saved 
3; 62 0205 1 ' PSwW 
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-32 v4.0-742 
v04-000 14-Sep-1 DEBUG. DBGEVENT .832;1 

74 earees ROUTINE 

75 DBGSNGET_ADDRESS Get and address from a primary 

7 SMAKE _VAL best, VMS desc to valdesc 

7 DBGSPRIM-TO VAL, Get a value descriptor from a primary 
7 DBGSNGET SYAID, Get a SYMID 

7 DBGSNCOPY_DESC, Copy a primary descriptor 

0 DBGSNFREE DESC, Free a ec ieery descriptor 

1 DBGSSTA_LOCK_SYMID Lock a SYMID 

8 DBGSSTA "UNLOCK SYMiD, Unlock a SYMID 

8 DBGSPRIAT, Print’ an FAO string 
84 DBGSNEWLIN pune "erinted' buffer 
85 DBGSPRINT_VALUE Print’ a value from a val desc 

DBGSPRINT-IDENTIFIER, 'Print’ an identifier from a primary 

87 DBGSPRINT_IDENTIFIER_PC, ‘Print’ an identifier from an address 
88 DBGSPUTMSG, Put an exception message 
89 DBGSPC_TO_LINE_LOOKUP Match a PC to Line 
90 DBGSSRC_TYPE_PC_SOURCE: NOVALUE, Display source Line 
91 DBGSINS DECOBE Decode Cand display] instruction 
% DBGSOPCODE INDEX, Get opcode from mnemonic 
% DBGSF INAL_RANDL, DEBUG's final handler 
94 DBGSREAD_ACCESS, Check for read access 
95 SMAP_TO_REG_ADDR, Map an address to register space 


! 
i 
i 
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i 
i 
i 
i 
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i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
0BG ¥ ! 
DBGSNGET_PAGES, ' Get pages from a primary 
DBGSDATA_LENGTH, ' Get data bit length from VMS descriptor 
DBGSIS_IT_ENTRY ' Checks address for entry point 
SNMAKE- ARG ' Constructs a message argument vector 
' Saves an inline numeric Literal 
' Saves away a break action buffer 
' Get a block of permanent memory 
' Release a block of permanent memory 
' Get a block of temporary memory 
' Release all of senperer? sanery 
Release all temporary RST es 
i] 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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1 DBG = VECT 
1 DBGSNSAVE -DECTMAL_INTEGER, 
1 DBGSNSAVE BREAK_BOFFER: NOVALUE, 
: DBGSGET_MEMORY, 

1 oa 

1 DBGSREL_TEMPMEM, 

1 DBGSRST_TEMP_RELEASE: NOVALUE, entr 

1 BGSNNERT Isolates next word for syntax errors 

1 Routine to match keywords ; 

1 Interface routine to Address Expression Interpreter 
1 Prase an expression 

1 Type converter 

1 Write into memory 

1 Add command string 

: Execute a command List 

1 
1 
1 
1 
1 
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D . 
DBGSNPARSE ADDRESS 
DBGSNPARSE EXPRESSION, 
DBGSNTYPE 


DBGSCOMMAND PROC, 

DBGSNINITIACIZE 

DBGSNSYNTAX_ERROR, 

DBGSSET STPELVL : NOVALUE, 
DBGSPSEODO_PROG 

LIBSSIGNAL? ADDRESSING_MODE (GENERAL 
LIBSSTOP; 


Initialize for user commands 
Constructs a syntax error message 
Set step level 

DEBUG's call code 
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EXTERNAL 
DBG$GB_CALL_NORMAL_RET: BYTE, CALL command status flag; 0 = not in 

a CALL command, 1 = in a CA 
that has not yet returned = 
in normal return from a CALL cmd 

Radix settings 

Current set lang ; 

Flag set to print ‘+* before signed 
variable 


DBGSGB_RADIX: VECTOR[3, BYTE), 
DBGS$GB~LANGUAGE: BYTE, 
DBGS$GL~SIGN_FLAG, 
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- -Sep- DEBUG. SRCID BGEVEN -832;1 
: DBGSCONTROL_FLAGS, 


STEPPING DESCRIPTOR, 
: REF VECTORE, BYTE), 


Major State of DEBUG 
Current stepping modes 


1 

14 

' 

i 

i 

i Current mode “tops 

i Head of command Nput stream 

i Number of levels of a nesting 

i Address of LIBSSIGNA 

i Address of tiBsstop 

i Step count 

i User commands okay (no go etc.) 
: BLOCKL t BYTE, Run frame 
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CRD! BYTE 
DBGSRURF RAM 
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442 he =CLOBALS: bY rte 0 command had an argument 


t convert to global symbol 
DBGSOPCODE_KIND_T ° 7 


Don 
77? 
DBGSOPCODE an TABL 72? 
LOCKVECTOR C.10,BYTE), 
DBGSPSEUDO “exit, Label in pseudo code for CALL 
DBGSPSEUDO_SSI, Label in Sst ROUTING code for 
posses SET ttt ” moet BYTE, 
DBGSTERM_H 


Is cereh echt ete 
DBGSUSER- 7 an 


Label in termination handler 
Label in exit c 


Label in ‘primary. handler 
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PRIM_HANDL 
DBGSGL “OUTPRAB: BLOCKC BYTE), 
DBG$GL-ORIG_COMMAND PTR 
DBG$GL~UPCASE_COMMAND_PfR: VECTORC2); 
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! ' RAB for ‘ 
1 
: | Pointers to start and end 
1 
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Pointer to original command string 
i of current command string 


GLOBAL 
DBGSGB_ SET ~BREAK. 


DBG$GB_SET “WATCH, 
BYTE” 


' of address 
' Set te, rue = process ing 

of System service cycle 
(CALL to RET) for uaten point 
value comparison 


! Set te. i" Gur'toe ® process ing 
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INVALID FLAG, 


NEWVALUE: REF DBGSVALDESC, 
OLDVALUE : REF DBGSVALDESC, 
YPE_ SOURCE, 
ACevTO PC, 
WATCH_PC, 


Set to TRUE when a tow? poganes 
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invalid ae. fo -VAU-H 
nit value for watch point a Sole 
ot¢ value for watch point variable 
S okay to Fype source 
pe at an ACCVI 
PC at next instruction after System 
service call when watch point ing 
sean oged. used to report watc 
n 
we're (not init at ty) ystiopine A ACCVIO's 
Flag set to indicat er RET 
of Service cme report untened 
value if there is one 
Condition for WHEN clause 
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WHEN_CONDITION: REF DBGSVALDESC; 
BUILTIN 
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! Insert an entry on a lis 

ponove an entry froma list 


obe a location for read-access 


' The yt toving is used to flag a stop, such as from a BREAK or the 
end of a STEP, as opposed to a TRACE.... 


EVENTSB_STOP_USER : BYTE; 
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ithe 12-8 08- 1 3be 9 33:89 DEBUG. SRCIDBGEVENT B32: 1 ° (3) \ 
: 138 3. 1! Define the QUEVE_HEAD data structure, used to reference the head of 
s 19 4 1! @ queue. 
> 194 me 
: 195 § 1 FIELD 
§ 138 : QUEUE _HEAD_FIELDS = 
: Hs : : A_QUEVE_ENTRY = (0,A_], ! Queue entry's address 
: 200 1 1 L_QUEUE_FLINK = £0... ! Queue's Oth (normal) Forward LINK 
: 4 8 ¢ : L QUEUE BLINK = (1,L_J, ' Queue’s Oth (normal) Backward Link 
; 08 4 1 L._QUEUVE_FLINK? = Fg. ‘ ' Queue's ist Forward LINK 
; 4 > % L -QUEVE_BLINK? = (5,L ! Queve's ist Backward Link 
; 205 8 § ! TES; 
: 09 0338 1 
; 4 0340 : MACRO QUEUVE_HEAD = BLOCK (4,LONG] FIELD (QUEVE_HEAD_FIELDS)2; 
: 0341 1 GLOBAL 
3 44 1 EVENTSCMD oveue: QUEUE _HEAD, ' Command Queue 
3 034 1 EVENTSDO_CIST_QUEUE: QUEUE _HEAD, ' DO List Queue 
3 bate 1 EVENTSWHEN_QUEUE : QUEUE"HEAD, ' WHEN Queue 
; 0345 1 EVENTSPAGE _ QUEUE : QUEUE "HEAD, ' PAGE Queue 
ee b3e$ 1 
, @ 0347 1 
, 2 0348 1 
, 2 0349 1 
ae 0350 1 
3; é 0351 1 
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: Calculate word length from bit Length. 


BIT_TO_WORD_LENGTH (BIT_LENGTH) = 
((BIT_LENGTH + %BPVAL = 1) / %BPVAL) 


Setup a UPLIT ZASCIC string. 


$AC (STRING) = 
UPLIT BYTE (ZASCIC STRING) 


Test <string> for a match with the input string. 
MATCH (STRING) = 


(DBGSNMATCH(. INPUT_DE 
%1 R 


, STRIN 
F ZNULL T% 


wee @ G 
EMAINING) &THEN 1 XELSE ZREMAINING %FI)) %, 
! Match <string> to the input string, and give a syntax 
error if <string> does not match. 
NEED_MATCH (STRING) = 
TIF NOT MATCH (STRING) THEN SYNTAX_ERROR;) %, 
Syntax Error 
SYNTAX_ERROR = 
BEGIN 
-MESSAGE_VECT = 
CF RATCH (DBGSCS_CR) 
DBGSNMAKE_ARG_VECT (DBG$_NEEDMORE) 
: DBGSNSYNTAX_ERROR (DBGSNNEXT_WORD (.INPUT_DESC)) 
RETURN STSSK_SEVERE 
. END 


Allocate an adverb node. 
GET_ADVERB_NODE = 
BEGIN 


ADVERB_NODE = DBGSGET_TEMPMEM (DBG$K_ADVERB_NODE_SIZE); 
ADVERB-NODE CDBG$L_ADVERB_LINK) = 0; ies 
.ADVERB_LINK = . ADVERB NODE | - 
ADVERB_CINK = ADVERB_NODE COBG$L_ADVERB_LINK) 


L 
R 


i 
C 


Page 
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Woke P3738 | HON Shi ssase ene esses ve 1 
3 490 1 : 
; $3) : Allocate a noun node. 
: M0493 1 GET_NOUN_NODE = 
; M0494 1 “8 GIA 
: m 0495 1 NOUN_NODE = DBGS$GET TEMPRER H (OBGER. NOUN_NODE_SIZE); 
: M0496 1 NOUN NODE COBGSt NOON LIN 
; m 0497 1 NOUR_LINK = NODE i 
: 8 498 NOUN, CINK 2 NOUN NODE rate _NOUN_LINK] 
: 500 1 %, 
: 8) | 
: 0508 : Write an opcode to memory. 
: og 9305 1 WRITE_OPCODE (ADDRESS, OPCODE) = 
3 M05 $ 1 (7 LOCAL 
: ™ 0507 1 8 
; ™ 0508 1 
; m 0509 1 OP = OPC 
; m 0510 1 OBGSURITE omen (ADDRESS, OP, 1) 
3 m 0511 1 
g 0512 1 q; 


a iris: 
1 

| 

| 

| 
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5 5 13. 1! Literals 

: § 14 #1! 

; 15 1 LITERAL 

: 386 13 | 

; 390 \8 1 ! Define the adverb Literals, used to describe the contents 
: 33 3 : of an adverb node. 

; 39 P 0 e ENUMERATE (0, ADVERB_AFTER 

: 39% P 05 ; 1 ADVERB TEMPORARY, 
: 395 P0508 1 ADVERB-SILENT, 

: % P 3 4 1 ADVERB-NOSILENT, 
: 39 P0505 1 ADVERB-WHEN, 

; 398 P 03 6 1 ADVERB-DO, 

; 399 P 05 1 

: 400 P0508 1 ADVERB_READ 

> 601 P 0509 1 ADVERB WRITE, 

: 40 P0530 1 ADVERB_MODIFY 

: 40 P0531 1 ADVERB_EXECUTE, 

; 404 P 05 ; 1 ADVERB_RETURN 

> 405 P0533 1 ADVERB-EXCEPTION, 
: 406 P0534 1 ADVERB- SOURCE 

: 40 P0535 1 ADVERB-NOSOURCE, 
: 608 P 05 % 1 ADVERB_SYSTEM 

: 409 P 0537 1 ADVERB_NOSYSTEM, 
: 410 p 0538 1 ADVERB_ INTO, 

: 411 P0539 1 ADVERB_OVER, 

: 4i¢ P0540 1 ADVERB CALL 

3; 61 P0541 1 ADVERB-BRANCH, 

: 414 P 04¢ 1 ADVERB-LINE 

: 415 P0543 1 ADVERB~ INSTRUCTION, 
> 416 P0544 1 ADVERB-OPCODE , 

> 417 P0545 1 ADVERB~ALL 

> 418 0546 1 ; 

3; 419 0547 1 


ro 
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LOBAL ROUTINE DBGSEVENT_INITIALIZATION: NOVALUE = 
FUNCTION 


G 

' 

i 

: This routine is called to initialize the event structures when 
DEBUG is first entered. 
' 

i 

i 

i 

i 

i 


; 
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INPUTS 
None 


OUTPUTS 
None 


BEGIN 


Intialize the head of the Command Queue. 


EVENTSCMD-QUEUE CL-QUEUE-FLINK1] = EVENTSCMO_QUEUE; 
EVENTSCMD-QUEUE CLTQUEUE-BLINK1] = EVENTSCMD-QUEUE; 


Initialize the head of the DO List Queue. 


EVENTSDO_LIST_QUEUE [CL_QUEUE_FLINK] = EVENTSD List. 


ad - o * 0. UEUE; 
EVENTSDO_LIST_QUEVE CL_QUEUE_BLINK EVENTSDO_L 


UEUE ; 


Initialize the head of the WHEN Queue. 


EVENTSWHEN_QUEUE [L_QUEUE_FLINK] = EVENTSWHEN_QUEUE; 
EVENTSWHEN-QUEUE CL-QUEUE~BLINK] = EVENTSWHEN~QUEUE; 


Initialize the head of the PAGE Queue. 


EVENTSPAGE_QUEUE CL_QUEUE_FLINK] = EVENTSPAGE_QUEUE; 
EVENTSPAGE QUEUE L7QUEUE“BLINK] = EVENTSPAGE—QUEUE; 


IDENT AVO6~000\ 

-PSECT DBGSOWN,NOEXE, PIC,2 
00000 INVALID_FLAG: 
00004 NEWVALUE : 
00008 OLDVALUE: 
0000C TYPE_SOURCE: 
00010 accvio.pts 
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00014 WATCH_PC: 


00018 SKIP _AcciIOS: 
0001¢ SKIP_WATCHES: 
00020 WHEN. CONDITION: 
00024 DBGSOPCODES USER: 
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DEBUG. SRC JDBGEVENT .832;1 


00 00000 DBGSGB_SE! BREAK FLAG: : 
00 00001 DBGSGB_SET WATCH FLAG:: 


$000 eventscnb bitue:' 
-BLKB 1 
00014 EVENTSDO_LIST QUEUE :: 
00024 EVENTSWHEN QUEUE : 
00034 EVENTSPAGE QUEUE: 


.BCKB 
00044 EVENTSB_STOP_USER:: 
-BLKB 1 


DBGSNGET ~ADDRESS 
DBGSMAKE~VAL_DESC 

DBGSPRIM- OC UAL 

DBGSNGET =SYAID. DBGSNCOPY_DESC 
DBGSNFREE DESC, DBGS$STA_LOCK_SYMID 
DBGS$STA_UNLOCK_SYMID 

DBGSPRIAT. DBGSNEUL INE 


RINT. 
DBGSPRINT—1D DENTIFIER 
DBGSPRINTIDENTIFIE 
DBGSPU THSG DBGSPC ero C aNe _LOoKuP 
DBG$SRC_TYPE_PC_SOORC 
DBGSINS DECOBE, ~DBGSOPCODE. INDEX 


DBGSMAP_TO_REG_ADDR 

DBGSNGET PAGES. DBGSDATA_LENGTH 
DBGSIS_I =fNI RY 

DBGSNMAKE_A ECT 

DBGSNSAVE “DECIMAL INTEGER 

DB SSNSAVE BREAK 

DBGS ae RY, DBGSREL_MEMORY 
DBeSET nT aren 


DBGSREL~ TEMPRER 
DBGSRST TEMP_RELEASE 

D EXT WORD, DBGSNMATCH 
RSENA ADDRESS 

DBGENPARSE™ EXPRESSION 

BGS$N E CONV, DBGSWRITE_MEM 
DD, OBGSCOMMAND—PROC 


DB ry 
DBGSSET S1Ps LVL 
DBGSPSEODO_P 

LIBSSIGNAL - tIBssToP 
bBG$B {NORMA L ARE 
DBGSeB_RAD “PADI p86 6B ET ANGUAGE 
DBGSGV~ =oNTROL. DBGS$GB_STP_PTR 
pBesco" “MOD_PTR. DBGS$GL~CISREAD 
DBGSGL“CIS“LEVELS 


Page RS 
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V ergee= she 99:33:89 =| HOMES Bae ssace vent asec 7 
.EXTRN DBG$GL_LIB_SIGNAL_ADDR 
-EXTRN DBGSGL-LIB~STOP_ADDR 
-EXTRN DBGSGL~STEP_N 
-EXTRN DBG$GB TAKES CMD 
[EXTRN DBGSRUNFRAME DBGSGB_ EXC_BRE_FLAG 
TRN DBG$GB_GO_ARG_FLA 
“EXTRN DBG$GB~NO~ GLO tee 
*EXTRN DBGSOPCODE KIND TABLE 
“EXTRN DBGSOPCODE NAME — 
-EXTRN DBGSPSEUDO-EX 
-EXTRN DBGSPSEUDO-SSI, DAGSGB_SET_SSI_CNT 
“EXTRN DBGSTERM_HANDLR 
*EXTRN DBGSUSER EXIT, PRIM_HANDL 
SEXTRN DBGSGL_OOTPRAB DBGSGL ORIG. COMMAND_PTR 
*EXTRN the “UPCASE_COMMAND_PTR 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 | 
0004 00000 .ENTRY DBGSEVENT_INITIALIZATION, Save R2 : 0548 
52 00000000' EF 9E 00002 MOVAB EVENTSCMD"QUEUE, ; 
6 62 9E 00009 MOVAB EVENTSCMD-QUEUE, EVENTSCMD_QUEUE : 0566. 
04 A2 62 9E 0000C MOVAB EVENTSCMD"QUEUE. EVENTSCMD~QUEUE+4 : 0567) 
08 Ad 62 9E 00010 MOVAB EVENTSCMD"QUEUE. EVENTSCMD~QUEUE+ > 0568 | 
OC Ad 62 9E 00014 MOVAB EVENTSCMD-QUEUE, EVENTSCMD~ QUEUE+ : 0569 
10 A 10 A2 9E 00018 MOVAB EVENTSDO_CIST_QUEVE, EVENTSDO_LIS 3 0574 
) 10 A2 9E 00010 MOVAB EVENTSDO"LIST QUEUE. EVENTSDO~ List “QUEUE +4 : 0575 | 
20 A2 20 Ad 9E 000¢¢ MOVAB EVENTSWHEN_QUEUE, E ¥ ; 0580, 
Rie i 0 A2 9E 000 MOVAB EVENTSWHEN~QUEUE.” EVENT SWMEN” QUEUE +4 : 0581 | 
0 A 0 Ad 9E 900 C MOVAB EVENTSPAGE-QUEUE. EVENTSPAGE QUEUE : 0586 | 
oF 0 A2 9E 00031 MOVAB EVENTSPAGE-QUEUE. EVENTSPAGE —QUEUE +4 : 0587. 
04 00036 RET : 0588 | 


; Routine Size: 55 bytes, Routine Base: DBGSCODE + 0000 
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14-Sep-1984 DEBUG. SRC JDBGEVENT .832;1 
; $6? 288 ! GLOBAL ROUTINE DBGSEVENT_SYNTAX(INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 
; 465 $31 1 ! FUNCTION 
: rg 38 1! This ee pocses a step oreek trace or wat nt commend. 
> 46 593 1/3 after the 'CSET] STEP’, ‘SET B , "SET TRACES eer 
: re i : has been parsed. This mf, “ m daied Po Eager (or DBGNSTEP). 
: 670 0596 1! The following syntax is accepted: 
471 0 oF 1 i 7 7 
3 rf 598 1! SET rae : TRACE | WATCH J 
: 47 0599 1! /AFTER : <n> J 
; 476 res 1! 7TEMPORARY 3 
3 «64475 11! 9 LMOISILERT ] 
3: 676 ope 1! 
; 477 0605 1! *OnEN (<expression>) 
; 478 0604 1! DO (<command List>) 
3; 479 0605 1! : 
; 480 0606 1! If the event is a watchpoint, <event> is: 
: 481 0607 1! 
; «48 0608 1! <address> ( , <address> J* 
; 48 609 1! 
3; 484 610 1! otherwise, <event> is: 
>; 485 0611 1! 
3; 486 pet¢ .-% C a | /WRITE | /MODIFY ;} /EXECUTE : /RETURN J 
3; 487 061 1! eres? C , <address> Je } 
; 488 0614 1! f eh oort : 
; 4689 0615 1! /CTNO SOURCE : “JENOISYSTER | INTO | /OVER J* 
; 490 0616 1! LLS : ETURN : /BRANCH : /LINE | /INSTRUCTION 
3; 491 0617 1! « C lenenenied | ( <mnemonic> C , <mnemonic> ] ) J) 
; 49 0618 1! J 
3; 49 0619 1! 
3: 494 0620 1! ET STEP 
3; «6495 0621 1! fetta 
3; 496 06 § 1! NOJSOURCE : CNOJSYSTEM : INTO } OVER J* 
3; 497 06 1! {C CALLS : RETURN : BRANCH : bine + INSTRUCTION 
; 498 0624 1! C = C <mnemonic> | ( <mnemonic> C , <mnemonic> ) ) JJ 
3; 499 0625 1! ] 
: $00 06 $ 1! 
; 501 38 1! P 
3 206 628 1! /CNOJSILENT 
s 3 0629 1! /CNOJSOURCE : fine ssvsten : JINTO {| /OVER Je 
: 504 0630 1! C /CALLS | /RETURN | /BRANCH |: /LINE |: /INSTRUCTION 
; 505 0631 : s £44 : ( <mmemonic> C , <mnemonic> ) ) J) 
: 308 bess | i 
; 508 36 . 3% 
; 509 5 1! INPUTS 
; 510 06 1! INPUT_DESC: The current command Line input Coser tpser, 
s 511 0637 1! VERB_RODE : A pointer to a DEBUG verb node, w 
; 312 0638 1 i attribute set tc EVENTSK_SET BREAK, "EVENTSK Ss cet TRACE, 
5 sii 44 : EVENTSK SET_WATCH, EVENTSK_SET _STEP or EVERTSK-STEP. 
3 S19 es. MESSAGE_VECT: The address of a longword to contain the address 
3 218 re ' of a message arqunen vector. 
° a1 4 1 ! QOuTPUTS 
; 519 45 1! The parse tree headed by VERB_NODE is created to represent the 
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cause this routine to return STSSK_SEVERE, 


command persed. Errors 
otherwise STSSK_SUCCESS. 


BEGIN 


MAP 
VERB_NODE: REF DBGSVERB_NODE; ! 
LOCAL 


STATUS, . 
ADVERB_NODE: REF DBGSADVERB_NODE, 
ADVERB_LINK: REF DBGSADVERB NODE , 
NOUN_NODE: REF DBGSNOUN_NODE, ! 
NOUN-LINK: REF DBGSNOUN_NODE, 


Ax-11 BLi saat 


4.0 
DEBUG. SRCJDBG . 


V4.0-74 
VENT .B32;1 


Verb node pointer 


Returned status 

! Adverb node pointer 
' Adverb node Link 
Noun node pointer 
Noun node Link 


i] 
CMD_TYPE, ' Command type 
CMD_KIND, ! Command Kind 
SUB_KIND, ! Command sub-kind 
AF TER_COUNT, ' after count 
TEMPORARY, ' Teaporary flag 
SILENT, ' Silent flag 
OURCE, ' Source flag 
NOSILENT, ! Nosilent flag 
NOSOURCE, ' Nosource flag 
SYSTEM ' System flag 
NOSYSTEM, i Nosystem flag 
INTO, ! Into flag 
OVER; ! Over flag 
BIND 
: Define the character strings to parse. 
! Define the ch i 
DBGSCS_AFTER = SAC ('AFTER') 
DBGSCS- TEMPORARY = SAC (*TEMPORARY'), 
DBGSCS"SILENT = SAC ("SILENT"), 
DBGSCS"NOSILENT = SAC (*NOSILENT'), 
DBGSCS"WHEN = SAC (WHEN'), 
DBG$CS"DO = $AC ('DO'), 
DBGS$CS"READ = SAC (*READS) 
DBGSCS"WRITE = SAC (*WRITE'S 
DBGSCS-MODIFY = SAC (*MODIFY'S 
DBGSCS"EXECUTE = SAC ('EXECUTE'S, 
DBGSCS-RETURN = SAC ("RETURN'), 
DBGSCS-SOURCE = SAC (*SOURCE') 
DBGSCS-NOSOURCE = SAC (*NOSOURCE'), 
DBGSCS"SYSTEM = SAC ('SYSTER') | 
DBGSCS"NOSYSTEM = SAC (*NOSYSTEM'), 
DBGSCS"INTO = SAC ("INTO"), 
DBGSCS-OVER = SAC ('OVER') 
DBGSCS"EXCEPTION = SAC (EXCEPTION'), 
DBGSCS"CALL = SAC ('CALLS') 
DBG$CS"BRANCH = SAC ('BRANCH'S, 
DBGSCS"LINE = SAC ("LINE®) 
DBGSCS"INSTRUCTION =  $AC (* INSTRUCTION’), 
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voce 0 19=808=18e 90:38:48 DEBUG. SRC IDBGEVENT .B32:1 9 8) 
; 577 703 DBGS$CS_EQUALS = SAC ("="), 
: 578 704 DBG$CS"L_PAREN = SAC (°("); 
; 579 705 DBGSCS-R-PAREN = SAC (*)'); 
: 580 7 6 DBGSCS-COMMA = SAC (',"); 
; 581 7 DBGSCS"SLASH = SAC ('7*); 
; : 7 8 DBG$CS-COLON = SAC (':") 
: 383 109 DBGSCS-CR = UPLIT BYTE (1, DBGSK_CAR_RETURN) ; 
. on: 
: rH 718 Initialize the verb's adverb and noun pointers to null. 
; 289 715 VERB_NODE [DBGSL_VERB_ADVERB_PTR) = 0; 
; 590 0716 VERB-NODE CDBGSL“VERB-OBJECT-PTR} = 0; 
: 393 $718 
: 598 Oris ! Initialize the adverb and noun Links. 
: 595 0721 ADVERB_LINK = VERB_NODE (DBGSL_VERB_ADVERB PTR); 
3 298 a NOUN_LINK = VERB_NODE Epes VERS OBJECT PTR]. 
: 598 0724 
3 23p Bis? Set the default command descriptors.... 
: 601 o7s6 SELECTONE .VERB_NODE CDBGSB_VERB_COMPOSITE) OF 
: 60 0728 SET 
: BOe $750 
; 698 ie} CEVENTSK, SET_BREAK]: 
; 609 07 : CMD_TYPE = EVENTSK_TYPE_BREAK; 
; 608 0734 CMD“KIND = EVENTSK-KIND-ACC; 
; 609 0735 SUB"KIND = EVENTS$K~ACC_EXEC: 
> 610 07 é END: 
: e12 $7 
: ei8 0739 CEVENTSK, SET TRACE): 
: 615 0741 CMD_TYPE = EVENTSK_TYPE_TRACE; 
3 616 O74¢ CMD"KIND = EVENTSK-KIND-ACC; 
3; 617 074 SUB-KIND = EVENTSK_ACC_EXEC; 
> 618 0744 END? 
; 619 0745 
: 63 O79 CEVENTSK SET WATCH]: 
: g 25 CMD_TYPE = EVENTSK_TYPE_WATCH; 
+ 626 750 CMD“KIND = EVENTSK"KIND-ACC; 
3 ° 5 6} SUSKIND = EVENTSK_ACC_ADFY; 
Bae 7 
; 6¢9 235 CEVENTSK, SET_STEP,EVENTSK, STEP): 
; 631 39 CMD_TYPE = EVENTSK_TYPE STEPS; 
: 65¢ 738 SUB"KIND = .DBG$GB-STP_PTR CEVENTSB_STEPPING_KIND); 
: 63 75 IF [SUB_KIND EQLU EVENTSK_ACC_RTRN 


7 
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>; 634 760 THEN 

; 6 5 76 CMD_KIND = EVENTSK_KIND_ACC 

3; 6 : 76 ELSE IF .SUB_KIND EQLU EVENTSK_EXC_EXC 

; 638 764 THEN 

: 639 765 CMD_KIND = EVENTSK_KIND_EXC 

; 640 76 

; 641 076 ELSE 

; 64 1534 CMD_KIND = EVENTSK_KIND_INS; 

3; 64 768 

> 644 0770 END; 

: 645 144 

: 646 ore TES; 

3: 647 077 

3; 648 0774 

3; 649 0775 ' Setup the other default values. 

; 650 Or76 ! 

s 63) 077 AFTER COUNT = 1; 

; 63¢ 0778 TEMPORARY = FALSE; 

: 65 0779 SILENT = FALSE; 

: 654 0780 NOSILENT = FALSE; 

; 655 0781 SOURCE = FAL 

; 656 078¢ OSOURCE = FALSE; 

s 657 878 SYSTEM = FAL 

; 658 0784 NOSYSTEM = FALSE; 

; 659 14 INTO = FALSE; 

; 660 0786 OVER = FALSE; 

; 661 0787 IF .VERB_NODE CDBG$B_VERB_COMPOSITE] EQL EVENTSK_STEP 

: os 0789 ; SILENT = NOT .DBG$GB_STP_PTRLEVENTSV_STEPPING_NOSILENT); 
: 665 0791 $ 

> 666 444 ! Parse the command. If this is not a SET STEP command ——— that it 
; 667 0793 2 ' is SET BREAK, SET TRACE, SET WATCH, or STEP, we look for qualifiers with 
; o8 BP8e "'/"* preceeding. 

; 670 0796 if .VERB_NODE COBG$SB_VERB_COMPOSITE] NEQU EVENTSK_SET_STEP 

3; 671 0797 THEN 

3 ore 0798 BEGIN 

s 67 0799 

3 674 0800 

: 675 0801 ' Look for the qualifiers.... 

: 676 pe08 ! 

; ort O04 Parse the command according to the following syntax: 

; 679 805 ' /AFTER : <n>_] 

; 680 508 ' /CNOJSILENT J 

3 6681 80 ! /TEMPORARY J 

3 oes ri) : /READ {| /WRITE : /MODIFY {| /EXECUTE | /RETURN J) 
; 68 80 ! <address> C , <address> J* 

3: 684 tt ‘ /EXCEPTION 

; 6685 11 ! C /CNOJSOURCE : /CNOJSYSTEM : /INTO : /OVER J 

5 656 alg ' /CALLS 

HY ret 1 4 /RETURN 

3 6 14 i /BRANCH 
; 689 15 ' /INSTRUCTION C = C <mnemonic> | C( <mnemonic> C , <mnemonic> J* ) J) 
; 690 0816 ! 


7 
ites tol 1$- -Sep-1984 99:39:19 prow Ol ieee 


Page 4° 
14-Sep-1984 12:16:5 DEBUG. (8) 


; 691 17 ; NOSILENT = TRUE: 2 
; 69 18 WHILE MATCH(DBG$CS_SLASH) DO 

: 69 19 4 BEGIN 

: 694 8 Qo 4 SELECTONE TRUE OF 

: 695 0 1 4 SET 

: $38 B58 

; o38 08 : : Parse the /AFTER : <n> qualifier. 

: 700 o8 6 4 CMATCH (DBGSCS_ AFTER): 

: 70 0828 IF .CMD_ TyPE EQLU EVENTSK_TYPE_BREAK OR 
; 70 0829 .CMD-TYPE EQLU EVENTSK-TYPE-TRACE OR 
; 704 0830 5 -CMDITYPE EQLU EVENTSK-TYPE-WATC 

; 108 $8 : ; omg 

mo OES 

: 709 et 6 ' Match the ':'. 

> 710 0836 6 i 

: ay 0837 6 NEED_MATCH (DBG$CS_COLON); 

: Wg 0839 6 5 

: ay 0840 ; ! FALL in the details. 

: 716 0842 6 IF NOT DBGSNSAVE_DECIMAL_INTEGER 

>: 717 0843 6 (. INPUT_DESC, 

: 718 0844 6 AF TER_COUNT, 

: 719 0845 6 .MESSAGE_VECT 
BRS We 

: 722 0848 6 RETURN STS$K_SEVERE; 

> 723 0849 6 

: 726 0850 6 END 

cm Mee s 

> 72? o8s3 5 SYNTAX_ERROR; 

738 ee END: 

> 730 0856 4 : 

: 731 O88? 4 

; os th ? Parse the /TEMPORARY qualifier. 

; 733 O860 4 CATCH (DBGSCS_ TEMPORARY): 

: Oe Spe8 

: 738 0864 IF .CMD_TYPE EQLU EVENTSK_TYPE_BREAK OR 
> 739 5 -CMD-TYPE EQLU EVENTSK-TYPE_TRACE OR 
: 740 866 3 -CMD-TYPE EQLU EVENTSK~TYPE WATCH 

; 741 $e N 

; rs § 6 BEGIN 

: 764 : 
: mez ie é Fill in the details. 
: 7% bb 78 6 TEMPORARY = TRUE; 
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—~ 
= 


LSE 
SYNTAX_ERROR; 
END; 


} Parse the /SILENT qualifier. 
{MATCH (DBGSCS_SILENT, 2)): 
BEGI 


N 
SILENT = TRUE; 
NOSILENT = FALSE; 
END; 


DVDSP ITSIISIS £~ 


NANNING 
COWDNAUE WOOO 


Parse the /NOSILENT qualifier. 
MATCH (DBGSCS_NOSILENT, 4)): 


BEGIN 
NOSILENT = TRUE; 
— = FALSE; 


o 
AAEWN OO OONO NEW" OOONOUNS 


COOOCCCOCOCOOCOOCOOCOOCOOCOOCOOOOoO 
0 Cd Cd 09 Cd 09 OD 00 09 Cd C9 0D OD CD OD CD OD CD CD CD CD CD CD 


oo 


Parse /READ. 
{MATCH (DBG$CS_READ) 3: 
BEGIN 


' Make sure that this is a SET BREAK or SET TRACE command, 
and then set the command kind to read access. 


if .CMD_TYPE EQLU EVENTSK_TYPE_BREAK OR 
“CMD-TYPE EQLU EVENTSK-TYPE-TRACE 


GIN 
787 091 CMD_KIND = EVENTSK_KIND_ACC; 
788 0914 SUB-KIND = EVENTSK_ACC_READ; 
789 091 END 
790 091 
791 ! ELSE 
1 


SYNTAX_ERROR; 
ND; 


N“N 
oO 
“ 
So 
ODOOOOOOOOOOOOO 


SOONOUEW —"OOOnNOu 


Parse /WRITE. 
(MATCH (DBGSCS_WRITE)): 
BEGIN 


' Make sure that this is a SET BREAK or SET TRACE command, 
and then set the command kind to write access. 


Be Oe Be Se Oe Oe Oe Be Be Be Oe Ge Ge Se Ge Se Ge Se Be Se Se FH Se Se FHT Se Oe Se Ge SH Se Ge Se Ge Se Ge Se Se SH Se Ge Ge Se Se Ge Ge Se Se Se Se Sess Ge Sse see 
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oO 
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v0e= ease e= 138s 337888 = Eade. Sacioace vent asset oe 8 
H $8? 931 IF .CMD_TYPE EQLU EVENTSK_TYPE_BREAK OR 
: oe 9 ¢ -CMD_TYPE EQLU EVENTSK_TYPE_TRACE 
; 80 9 HEN 
; 808 934 6 BEGIN 
: 809 83 5 6 CMD_KIND = EVENTSK_KIND_ACC; 
; 810 9 § 6 SUB. “KIND = EVENTSK_ACC_ORIT; 
s Bt) 09: 6 END 
; Sig 83 8 3 
; 81 939 LSE 
; «68146 0940 5 SYNTAX_ERROR; 
; 815 0941 4 D; 
; 518 942 & 
s §1 94 4 
; 818 0944 4 ' Parse /MODIFY. 
3; 819 0945 4 ! 
; 820 0946 4 CMATCH (DBGS$CS_MODIFY)): 
: 821 0947 5 BEGIN 
3 bs¢ 0948 5 
; 82 0949 5 
; 8246 0950 5 ' Make sure that this is a SET BREAK or SET TRACE command, 
: HH Bge4 2 and then set the command kind to modify access. 
3 Ser 095 5 IF .CMD_TYPE EQLU EVENTSK_TYPE_BREAK OR 
; 828 0954 5 -CMD_TYPE EQLU EVENTSK_TYPE_TRACE 
; 829 0955 5 
3; 830 0956 6 BEGIN 
; 831 0957 6 CMD_KIND = EVENTSK_KIND_ACC; 
3 o3¢ 0958 6 SUB-KIND = EVENTSK~ACC_MDFY; 
, 8 0959 6 END™ 
> 834 0960 6 
s 68S 0961 5 ELSE 
; 836 0962 5 SYNTAX_ERROR; 
; 837 9963 5 
; 838 0964 4 END; 
; 839 0965 4 
; 840 0966 4 
> 841 0967 4 ' Parse /EXECUTE <address> [ , <address> J*. 
; Ht 0968 4 ' 
; § 0969 4 CMATCH (DBGSCS_EXECUTE)): 
3 6844 0970 5 BEGIN 
3; 845 0971 5 
> 846 0972 #5 i 
3; 847 0973 «5 ' Make sure that this is a SET BREAK or SET TRACE command, 
: Bc 0375 H } and then set the command kind to execute access. 
; 850 976 5 IF .CMD_TYPE EQLU EVENTSK_TYPE_BREAK OR 
; «851 097 5 CMD = TYPE EQLU EVENTSK_ TYPE~ RACE 
3 $26 0978 5 N 
; 8 979 6 BEGIN 
3; 68546 980 6 CMD_KIND = EVENTSK_KIND_ACC; 
s 835 4} 6 SUB-KIND = EVENTSK_ACC EXEC: 
; 528 9 ¢ 6 END 
3 5 
: 858 984 ELSE 
; 2 985 SYNTAX_ERROR; 
: 1 9 $ 4 END; 


; 


——— 
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; 86 09 4 
; bs 8385 4 
; ee 144 : Parse /RETURN <address> (C , <address> J*. 
; be 992 4 CMATCH (DBGSCS_RETURN) 1): 
; 86 99 BEGIN 
; 868 994 
; 869 995 
; 870 099 ' Make sure that this is not a SET WATCH command, 
: 4 944 é and then set the command kind to return access. 
; He 999 é IF .CMD_TYPE NEQU EVENTSK_TYPE_WATCH 
3; 874 1000 THEN 
; 875 1001 6 GIN 
; 87 100¢ 6 CMD_KIND = EVENTSK_KIND_ACC; 
; 87 1003 6 SUB_KIND = EVENTSK_ACC_RTRN; 
; 878 1004 6 
; 879 1005 6 
; 880 1006 2 ELSE 
: 881 1007 SYNTAX_ERROR; 
; 88 1008 5 
; 88 1009 4 END; 
> «884 1010 4 
; 885 1011 4 
; 886 Isis 4 ' Parse /EXECEPTION. 
; 887 1013 4 ! 
; 888 1014 4 CMATCH (DBGSCS_EXCEPTION)): 
; 889 1015 5 BEGIN 
; 890 1016 5 
: «891 1017 § 
; 89 1018 5 ' Make sure that this is not a SET WATCH command, 
3 24, 1933 : and then set the command kind to execption. 
; 895 1951 5 if .CMD_TYPE EQLU EVENTSK_TYPE_BREAK OR 
; 896 10g¢ 5 -CMD-TYPE EQLU EVENTSK-TYPE-TRACE OR 
; 897 1023 § -CMD-TYPE EQLU EVENTSK-TYPE-STEPS 
: 898 Sse 5 HEN 
3; 899 1025 6 BEGIN 
; 900 1026 6 CMD_KIND = EVENTSK_KIND_EXC; 
; 901 1027 6 SUB-KIND = EVENTSK_EXC_EXC; 
; 90 1028 6 END 
: 90 1029 g 
: 904 1030 LSE 
: 905 193) é SYNTAX_ERROR; 
: 906 10 ¢ 
; 907 1033 4 END; 
; 908 1034 4 
; 909 1035 4 
: 910 10 4 ' Parse /SOURCE. 
: «911 10 4 ! 
3 aie 10 8 4 CMATCH (DBGSCS_SOURCE, 2)]: 
; (91 10 BEGIN 
: 9146 H+ SOURCE = TRUE; 
3; «6915 1041 NOSOURCE = FALSE; 
: 2i¢ Ho 4 END; 
; 91 1043 4 
; 918 1044 4 
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919 1 Parse /NOSOURCE. 
tRATCH (DBGSCS_NOSOURCE, 4)): 
NOSOURCE = TRUE; 
SOURCE = FALSE; 
END; 
Parse /SYSTEM. 
{MATCH (DBGSCS_SYSTEM, 2)]: 
BEGIN 


' Make sure that this is not a SET WATCH command, 
} and then set the command kind to call. 


if .CMD_TYPE NEQU EVENTSK_TYPE_WATCH 
THEN 


OOOOOOOOOOOOOOOOOO 
FSSEPPSPRERAARARAAADE EERE R 


DONA VES WIN O ODNAV EWN 0 ODNAU EWN HO ODNOAUE WN OOONOM 


SE 
SYNTAX_ERROR; 
END; 


Parse /NOSYSTEM. 
{MATCH (DBGSCS_NOSYSTEM, 4)): 
BEGIN 


' Make sure that this is not a SET WATCH command, 
and then set the command kind to call. 


if .CMD_TYPE NEQU EVENTSK_TYPE_WATCH 
THEN 


wooovowvowvowovo 
PPA PATIVIIV 
OONAOUE Ww 
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SBSSEREE 


ELSE 
SYNTAX_ERROR; 
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Parse /INTO. 
{MATCH (DBGSCS_INTO)]: 
BEGIN 


Bc Be Be Oe Be Oe Be Oe Oe Oe Be Oe Se Be Oe Se Be Oe Oe OF Ss Oe Se Oe Ge Se Se Se Be Oe Oe Se Oe Se Oe 5 Se Oe Se Oe Oe HSH SF Se SH Se SHS Ss Se Se Se ee Sees 
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; 97 11 

s 97 11 i 

; 97 1104 ! Make sure that this is not a SET WATCH command, 
: 444 1 5 and then set the command kind to call. 
; 381 i IF ,CMD.TYPE NEQU EVENTSK_TYPE_WATCH 

: 9 1109 6 BEGIN 

; oBz 1110 6 INTO = TRUE; 

; 985 1) 6 OVER = FALSE; 

: oBS 1148 

; 988 1114 ELSE 

; 989 1115 SYNTAX_ERROR; 

2 eae: ve 

: 99 1118 4 

: 995 1119 4 ! Parse /OVER. 

: 995 1121 4 {MATCH (DBGSCS_OVER)): 

: 399 1158 3 —s 

: 998 1126 § 

; 999 1125 5 ' Make sure that this is not a SET WATCH command, 
: 1300 1% $ 5 } and then set the command kind to call. 
; 1008 1158 8 iF .CMD_TYPE NEQU EVENTSK_TYPE_WATCH 

: lboe 1180 @ THEN GIN 

> 1005 1131 6 OVER = TRUE; 

> 1006 11 g b INTO = FALSE; 

We TE ~ 

> 1009 1135 § LSE 

: 1010 11 $ § SYNTAX_ERROR; 

+ 1011 11 5 

: 1018 1139 me 

: 1014 1140 4 

: 1015 1141 4 ' Parse /CALLS. 

: 1016 1148 4 i 

: 1017 1143 4 (MATCH (DBGSCS_CALL)): 

: 1019 1146 5 BEGIN 

: 1020 114 ; 

: 1954 1109 ' Make sure that this is not a SET WATCH command, 
: + ¢ 1368 5 and then set the command kind to call. 
; H+ $ 1139 ; IF ,,CMD_TYPE NEQU EVENTSK_TYPE_WATCH 

: 10 1152 6 BEGIN 

: 10 $ 1183 & CMD_KIND = EVENTSK_KIND_INS; 

: 10 $ 1154 6 SUB-KIND = EVENTSK~INS_CALL; 

: 10 3 1135 6 END 

: 18 1 1187 ; ELSE 

; 1032 1158 SYNTAX_ERROR; 


. 7 
maeygy" HEINE QOS SEGUE GSS, «= Gt 


3; 1033 1159 5 

3: 1 1160 4 END; 

; 1055 1161 4 

3 1 1196 4 

3 10 1165 4 ' Parse /BRANCH. 

3; 10 3 1164 4 ' 

: 10 1165 4 CMATCH (DBGSCS_BRANCH) J: 

3 1040 1398 BEGIN 

3 1041 116 

$ Mok 118 

3: 104 116 ! Make sure that this is not a SET WATCH command, 
; Ieee 1109 } and then set the command kind to branch. 
: Hh 1178 IF _ .CMD_TYPE NEQU EVENTSK_TYPE_WATCH 

: 104 117 THEN 

3: 1048 1174 6 BEGIN 

3 1049 1175 6 CMD_KIND = EVENTSK_KIND_INS; 

; 1050 1178 6 SUB[KIND = EVENTSK_INS_BRAN; 

3; 1051 1177 6 END 

3 1926 1178 

; 105 1179 ELSE 

3 1054 1180 SYNTAX_ERROR; 

; 1055 1181 

3; 1056 1186 4 END; 

: 1057 1183 4 

3; 1058 1184 4 

3; 1059 1185 4 ' Parse /LINE. 

3; 1060 1136 4 ! 

3 1061 1187 4 CMATCH (DBGSCS_LINE)): 

5 1006 1188 5 BEGIN 

3: 106 1189 5 

> 1064 1190 5§ 

: 1065 1191 5 ' Make sure that this is not a SET WATCH command, 
3 1e8 1138 5 and then set the command kind to Line. 

3 1068 119% : IF .CMD_TYPE NEQU EVENTSK_TYPE_WATCH 

: 1999 1195 § THEN 

3; 1070 1138 6 BEGIN 

; 1071 1197 6 CMD_KIND = EVENTSK_KIND_INS; 

: 1078 1198 6 SUB-KIND = EVENTSK-INS_CINE; 

3; 107 1199 6 END 

3: 1074 1200 

: 1075 1201 LSE 

: 1 6 1 O¢ SYNTAX_ERROR; 

3; 107 120 

; 1078 1 Be 4 END; 

3; 1079 1205 4 

; 1080 1 Be 4 

3; 1081 1 8 4 ' Parse /INSTRUCTION ; 

3 4 : 8 ? } C = C <mnemonic> | ( <mnemonic> C , <mnemonic> J* ) J). 
: 1084 1210 4 CMATCH (DBGSCS_INSTRUCTION)): 

3; 1085 1211 BEGIN 

3; 10 1 \¢ 

: 9 121 : 

; 1088 1214 ' Make sure that this is not a SET WATCH command, 
: 1089 1215 ' and then set the command kind to instruction. 
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1090 ; 

1091 IF_.CMD_TYPE NEQU EVENTSK_TYPE_WATCH 
109 THEN 

109 BEGIN 

1094 CMD_KIND = EVENTSK_KIND_INS; 
1095 SUB-KIND = EVENTSK_INS_EvRY; 


Z33 


oO 
co 


Look for a possible ‘='. 
if MATCH (DBG$CS_EQUALS) 
BEGIN 


3 


Set the kind to user defined instead of every. 
SUB_KIND = EVENTSK_INS_USER; 


Collect mnemonic(s). 
IF MATCH (DBGSCS_L_PAREN) 
THEN 


WWW WIWIIWInononononononononong ] = 


WR SO ODNA UE WIN @ OO DNAUE WN 9 ODNAUE WN MOOS NAME WN OOONO 


00 
2! 
08 
04 
05 
06 
07 
08 
09 
10 
\ 
18 
14 4 
12 ? Collect mnemonic(s) and build an noun List. 
17 4 BEGIN 
18 4 dO 
19 4 BEGIN 
gO 
$§ Get a noun node for a <mnemonic>. 
3 3 GET_NOUN_NODE; 
$ 5 NOUN_NODE COBGSL_NOUN_VALUE] = 
7 3 BBGSOPCODE_INDEX(INPUT_DESC); 
29 3 END 
: WHILE (MATCH (DBGSCS_COMMA)); 

5 
: H Match the ‘')°. 

5 6 NEED_MATCH (DBGSCS_R_PAREN) ; 
39 6 END 
; 6 
ELSE 
BEGIN 


oon 
LEAF 
90000000900 60 0d ~700 09 09 COD COD OD OOO OOOO O00 ODD NI NN NINO NIN NINN NINA NA AAOAOAAOUM 


Get a noun node for a <mnemonic>. 


GET_NOUN NODE: 
NOUR_NODE COBG$L_NOUN_VALUE] = 
BBGSOPCODE_IRDEX(TINPUT_DESC); 
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LSE 
SYNTAX_ERROR; 
END; 


Check for ambiguous cases. 


CMATCH(UPLIT BYTE(ZASCIC 'S'))]: 
SIGNAL (DBG$_AMBIGQUAL, 1, UPLIT BYTE(ZASCIC 'S')); 


CMATCH(UPLIT BYTE(ZASCIC "NOS'), 3)): 
SIGNAL (DBG$_AMBIGQUAL, 1, UPLIT BYTE(ZASCIC 'NOS')); 


WN" OOONOUS WO 0O~n 


Otherwise, we've got an undefined qualifier.... 


COTHERWISE): 
SYNTAX_ERROR; 


TES; 
END; ! End of WHILE loop over qualifiers 
END ! End of non=SET STEP command parse 


SSISWHIRATASSSVSFLRAES 


Handle the SET STEP command qualifiers. 
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8 08 ELSE 
09 BEGIN 
4 318 Parse the SET STEP command according to the following syntax: 
88 14 i ; fNO SILENT ] 
89 15 $ NOJSOURCE : CNOJSYSTEM : INTO : OVER J) 
90 1g ' CALLS 
91 1 4 RETURN 
4 8 4 BRANCH 
137 INSTRUCTION C = C <mnemonic> : (( <mnemonic> C , <mnemonic> J* ) J) 
195 1 DO 
196 § BEGIN 
197 SELECTONE TRUE OF 
198 4 SET 
he 5 
3 8 Parse RETURN 
08 5 (MATCH (DBGSCS_RETURN)): 


row 
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vOs=000, 


-NOSILENT, 4)): 


NT = FALSE; 


_NOSYSTEM, 4)): 
LENT = TRUE; 


SYSTEM, 2)]: 
NOSYSTEM = TRUE; 
SILENT, 2)): 


-NOSOURCE, 4)]: 
SYSTEM = TRUE; 


T 
T 
SOURCE, 2)]: 
NOSOURCE = TRUE; 


FALSE; 


DBGSCS 
N 


NOSILENT = FALSE; 
( 
Gl 
LE 
SI] 


SYSTEM = FALSE; 
SILENT = TRUE; 
END; 


NOSYSTEM = FALSE; 
END; 


SOURCE = FALSE; 
END; 


SOURCE = TRUE; 
NOSOURCE = 
END; 


BEGIN 
END; 

BEGIN 
BEGIN 
BEGIN 
BEGIN 


] 
I 
' Parse SOURCE. 
CH 
BE 
$] 


' Parse NOSOURCE. 


' Parse NOSYSTEM. 


' Parse NOSILENT. 


{MATCH (DBGSCS 
{MATCH (DBGSCS 
Parse SYSTEM. 
{MATCH (DBGSCS 
{MATCH (DBGSCS 
' Parse SILENT. 


{MATCH (DBGSCS 
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! Parse INSTRUCTION 
C = C <mnemonic> | ( <mnemonic> C , <mnemonic> J* ) J). 
{MATCH (DBGSCS NSTRUCTION) J: 


al 
CMD_KIND = EVENTSK_KIND_INS; 
SUB-KIND = EVENTSK_INS_EVRY; 


_2 


Look for a possible ‘='. 
iF MATCH (DBGS$CS_EQUALS) 
THEN 
BEGIN 
Set the kind to user defined instead of every. 
SUB_KIND = EVENTSK_INS_USER; 
Collect mnemonic(s). 
iF MATCH (DBGS$CS_L_PAREN) 
THEN 


tv 


WANA 


FeWw 


Collect mnemonic(s) and build an noun List. 
BEGIN 
dO 
BEGIN 
Get a noun node for a <mnemonic>. 
GET_NOUN_NODE; 


NOUN_NODE COBGS$L_NOUN_VALUE] = 
BBGSOPCODE_INDEX(TINPUT_DESC); 


FSSSEES 


END 
WHILE (MATCH (DBGSCS_COMMA)); 
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! Match the ')'. 
NEED MATCH (DBGS$CS_R_PAREN) ; 


tte 


SEES 


ELSE 
BEGIN 


: Get a noun node for a <mnemonic>. 
GET_NOUN_NODE; 

NOUR_ NO e POBaSL NOUN_VALUE) = 

a BBGSOPCODE_IRDEX(TINPUT_DESC); 
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; 1375 1501 5 

: 137 1 ¢ 4 END; 

3 137 1 4 

3; 1378 15046 4 

3 } 6 } 5 : Check for ambiguous cases. 

; 1381 1 09 4 CMATCH(UPLIT BYTE(ZASCIC 'S*))]: 

; } 1208 2 SIGNAL (DBSS_AMBIGQUAL, 1, UPLIT BYTE(ZASCIC 'S')); 
3 1384 1810 4 CMATCH(UPLIT BYTE(ZASCIC ‘'NOS'), 3)): 

: 1385 1511 4 SIGNAL (DBGS_AMBIGQUAL, 1, UPLIT BYTE(ZASCIC ‘NOS')); 
3; 3 56 1216 4 

3; 138 1513 4 

3 1 3 1213 2 } Otherwise, we've got an undefined qualifier (or something). 
; 1390 1318 4 COTHERWISE): 

3: 1391 1517 4 SYNTAX_ERROR; 

; 139 1518 4 

3; 139 1819 4 TES; 

3 1394 1359 4 

3; 1395 1521 4 END 

3 1396 15 ¢ 4 

: : 124 3 Z ; WHILE (MATCH (DBGSCS_COMMA)); 

3 1399 1525 END; ! End of SET STEP qualifier parsing 
: 1400 1526 

: 1401 1527 

3 1ene 1528 ! Build up the adverb List based on what we've got so far. 

: 140 1368 2 ! Note that if we've reached this pees. we should have 

3 1404 1530 § ' all qualifiers done, and the working variables reflect 

: et 133) the command desired. 

: ret 1338 : Set up the command kind and possibly the sub-kind adverbs. 
; 1409 1535 2 GET_ADVERB_NODE; 

3: 1410 15 $ § SELECTONE [CMD_KIND OF 

: 1411 15 S 

: rd | 1538 CEVENTSK_KIND_ACC): 

3 141 1539 ADVERB_NOBE CDBGS$B_ADVERB_LITERAL) = 

3 1414 1540 (SELECTONE .SUB_KIND OF 

3 1615 1541 fe 

: 1416 1366 EVENTSK_ACC_READ]: 

3 1417 154 ADVERB_READ; 

: 1418 1544 CEVENTSK_ACC WRIT): 

3 161 1545 VERB_WRITE; 

3: 1420 1366 CEVENTSK_ACC_MDFY): 

3 1421 154 Re_MODIFY: 

: 14 ; 1548 CEVENTSK_ATC_EXEC) 

3 14 1549 ADVERB_ERECUTE; 

3 14246 1550 CEVENTSK_ACC_RTRNJ: 

3 1425 1551 ADVERB_RETURN; 

3 14 $ 1336 TES 

3 14 155 ); 

3; 1428 1554 

3 1429 1 5 

: 1450 1 $ CEVENTSK_KIND git 

3; 1431 155 ADVERB_NOBE COBG$B_ADVERB_LITERAL] = ADVERB_EXCEPTION; 
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CEVENTSK KIND ‘wit 
ADVERB NODE CDBGS$B_ADVERB_LITERAL] = 
(SELECTONE ~SUB_KIRND OF 


PEVENTSK INS CALL): 


ADVERB_ CALL 

CEVENTSK_INS BRAN): 
DVERB_BRANCH: 

CEVENTSK_INS_ EVRY): 
ADVERB URSTRUCTION; 

CEVENTSK_INS_USERJ: 
ADVERB_OPCODE: 

CEVENTSK INS_LINE: 

TES 


DVERB_LINE; 
UB 
TES; 
' If the /AFTER, /UNTIL, and /EVERY are not at their defaults, 
setup an adverb node for the problem boys. 
if .AFTER_COUNT NEQU 1 
THEN 


BEGIN 
GET_ADVERB_NODE; 
! If the /AFTER count is 0, then this is really a kludge ah, | 


mean /TEMPORARY. 
if .AFTER_COUNT EQLU 0 


pg DUENS_ MONE COBG$B_ADVERB_LITERAL) 
BEGIN 
ADVERB_NODE CDBGSB_ADVERB_LITERALJ 
4 a aa DBG$L_ADVERB_VALUE) = 
END; : 
If the /SILENT or /NOSILENT qualifier is 
for whichever one was specified last. 
F .SILENT 
HEN 
BEGIN 
GET_ADVERB_NOD 


= ADVERB_TEMPORARY 


= ADVERB_AFTER; 
-AFTER_COUNT; 


present, make an Adverb Node 


ODE; 
ADVERS_NODE COBGS$B_ADVERB_LITERAL] = ADVERB_SILENT; 


IF .NOSILENT 


ro 


OO00000 
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3: 1 
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2. 
: 1 
fe 1 
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31 
3; 1 
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ea 1 
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16-Sep-1984 00:59: AX=11 Bliss-32 V4.0-742 P 4 
1236821 3be 13378:83 {DEBUG. SRCIDBGEVENT.B3251 a B) 
BEGIN 
GET ADVERB NODE 
ADVERG_NODE DBG$B_ADVERB_LITERAL] = ADVERB_NOSILENT; 


} If the /TEMPORARY qualifier is present, make an Adverb Node for it. 
if . TEMPORARY 
THEN 


BEGIN 
GET ADVERB NODE ; 
ADVERB_NODE DBGSB_ADVERB_LITERAL] = ADVERB_TEMPORARY; 


H a te /SOURCE or /NOSOURCE qualifier was present, make an Adverb Node 
or it. 


! 
! 
i 
if .SOURCE 
THEN 
BEGIN 
GET_ADVERB_NODE; 
ADVERB NODE CDBG$B_ADVERB_LITERAL] = ADVERB_SOURCE; 
IF .NOSOURCE 
THEN 
BEGIN 
GET_ADVERB_NODE; 
ADVERB _NODE COBG$B_ADVERB_LITERAL] = ADVERB_NOSOURCE; 
! Handle /CNOJSYSTEM's, /INTO's or /OVER'S. 
if .CMD_KIND EQLU EVENTSK_KIND_INS OR 
(.CMB_KIND EQLU EVENTSR_KIND_ACC AND 
«SUB-KIND EQLU EVENTSK_ACC_RTRN) 
BEGIN 
IF .SYSTEM 
THEN 
BEGIN 
GET ADVERB NODE: 
ADVERB_NODE DBGSB_ADVERB_LITERAL] = ADVERB_SYSTEM; 
IF .NOSYSTEM 
THEN 
BEGIN 
GET ADVERB NODE : 
ADVERB_NODE DBG$B_ADVERB_LITERAL] = ADVERB_NOSYSTEM; 
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BEGIN 
GET ADVERB NODE 
al NODE DB6SB -ADVERB_LITERAL] = ADVERB_INTO; 


IF .OVER 
THEN 
OEP Overs 
ADVERB ANODE waste LADVERB_LITERAL] = ADVERB_OVER; 
END; 
' If the command kind is an access kind, get the <address> C , <address> J* 


as long as an <address> is terminated with a ‘,*. 


if -CMD _TYPE NEQU EVENTSK_TYPE_STEPS AND 
DIKIND EQLU EVENTSKIKIND-ACC 


en 
BEGIN 
dO 
BEGIN 


Get a noun node for an <address>. 
GET_NOUN_NODE; 


Get an <address> - the is a status warning 
f more is on the Line. Surrounding this call, 
turn on a flag saying we are picking HN ne <2ddress in 
a set break command. This is used in DBGPA to 
resolve potential seal in SET BRE . ROO. (command) 


' 
i 
i 
i 
i 
i 
DBGSGB_s SET BREAK FLAG = 


DOOGOSGOOOSS OOOOOOO0 OO OWDWWOWWWOMOWO INNS 


0909 09 09 SINISE AAA AAA AAA MMIII } 
DNA MNES OOO NOA NEW 0 ODNO NE WIN $9 ODNAU EWN OOO NO UE WN SO OONOULE wT 


MN =O OONOUE WN (OO DNAUE WN“ ODOODNOAUES WN OO 


Ay Leal val al ah al al ab Ah Ab Ab Ab Ab Ab Ab Ab Ab db Ab Ab bb db bebbebbedbebh Ab bh dh bb dh ab th Ab ah ab sl ah sh ab al Ab al ab al ah Ab ab al al eal aba eal 


! If the status is not a warning, something is 
wrong, so return with a failure. 


if .STATUS NEQU STS$K_WARNING 


a a a a a nd a at at = a a = 9 = a = = — 9 


habadbadadadbabadadababadadabadtabatadadatadbatatatad dataaiabaiatiabababadblabablwaabadbubahababababababababatababababal 
NN SN NINA AAA AAAAAAAAAAAAAAAAASAOSAAAAS 


Foy oP oY ot ot ot at ot ot ot ot et et et et ee eh eh eh hh hk oh oe ee hoo oe ee 


RUE; 
84 1 TATUS = DBGSNPARSE_AD RES. at abr st 
85 1 NOUN_NODE DBGEL ue 4 
86 1 DBCSCB_ RADIX DBCSB aaeit UE bur? 
8 1 TOKENSK~ TERM CHWHDO; .MESSAGE_VECT); 
4 : DBGS$GB_SET_BREAK NPLKG = FALSE 
90 1 
91 1 ' If the status indicates success, there is no 
4 ’ more on the Line, and we exit this loop. 
Be ify vehi »STATUS EQLU STSSK_SUCCESS 

EXITLOOP; 

39 
98 
99 


1986 92:78: 


1 AX=-11 BL V4.0-74 P 
38 ; 20 Bs 


*) 1 igan2e 
p DEBUG. SRC JDBGEVENT .B32;1 


oO 
oO 


THEN 
RETURN .STATUS 
END 
WHILE (MATCH (DBGSCS_COMMA)); 
END; 
' Check the input for a <cr> after parsing <address> ( , <address> J* 
! or <mnemonic » <mnemonic> J. If there's nothing left on the 
!' Line we can leave. 
if MATCH (DBGS$CS_CR) 
THEN RETURN STSS$R_SUCCESS; 
' We didn’t match a <cr>, there's more on the Line. If this is a STEP 
command, get the step count.... 
if .CMD_TYPE EQLU EVENTSK_TYPE_STEPS 
IF, ,VERB_NODE CDBG$B_VERB_COMPOSITE] EQLU EVENTSK_STEP 
BEGIN 


Get an adverb node for a <step count>. 
GET_ADVERB_NODE; 


MEUM —O OONOAUESWN OOOO US WN OOM 
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WANA ANI AIRS PPIPIPYNIPUNONIDN 4 = OO SS OOO 
ee te te i tt i td ee ee | 


DDD PAs BB BB BB BE NNN 


Get a <step count> - there is a status warning 
if more is on the Line. 


PAAAAAAAEAAASAAAAAAAAAAAEKAA AAP ASA AOSA AS 


em ee a eek ak a a a a ek = = = = a a = = = 
me ed a ed ed ss dd 8 8d = = = 2 


RIPPIHIPMIPPIPIPRI INIA AAA A.A AAAI AIA PIPIPINPIPIPIPININIPIPINIPUPININIW EE BE 


' 
1 
3 76 ! 
M3 res Fill in the details. 
640 76 ADVERB_NODE CDBGSB_ADVERB_LITERAL] = ADVERB_AFTER; 
641 76 IF NOT DBGSNSAVE_DECIMAL_INTEGER 
66g 768 (, INPUT_DESC, 
64 oe? ADVERB_NODE COBGSL_ADVERB_VALUE], 
644 770 -MESSAGE_VECT 
645 771 
o*8 4k THEN 
64 77 RETURN STSSK_SEVERE 
648 774 
649 775 RETURN STSS$K_SUCCESS; 
650 76 
651 77 ELSE 
636 ree SYNTAX_ERROR; 
65 77 
654 780 
655 781 ' This isn’t a STEP command, but there's more on the Line - maybe 
$26 ’ § a WHEN or a DO.... 
658 784 ' Parse a possible WHEN (<expression>). 
659 785 ! 
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14-Sep- DEBUG. SRC JDBGEVENT .B32;1 
3; 1660 17 § IF MATCH (DBGSCS_WHEN) 
3; 1661 17 THE 
3; 166 1788 BEGIN 
: 166 1789 
3: 1664 1790 
; 1665 1791 ' Match the ‘(', 
> 1666 1738 ! 
3; 1667 179 NEED_MATCH (DBGSCS_L_PAREN); 
; 1668 1794 
3; 1669 1795 
3 1900 1738 Get a new adverb node for the conditional expression. 
: 1o76 1796 GET_ADVERB_NODE; 
3; 167 1799 
3; 1674 1800 
3 1023 190) } Flag a ‘WHEN’ and save the <expression>. 
3; 1677 1808 ADVERB_NODE CDBGS$B_ADVERB_LITERAL] = ADVERB_WHEN; 
; 1678 1804 DBGSNSAVE _BREAK_BUFFER (.INPUT_DESC, ADVERB_NODE [DBGS$L_ADVEB_VALUE)); 
3; 1679 1805 END; 
; 1680 1806 
3; 1681 180 
3 1986 1808 ! Parse a Possible DO <command List>. 
3; 168 1809 ‘ 
3; 1684 1810 IF MATCH (DBG$CS_DO) 
3; 1685 1811 THEN 
; 1686 sig BEGIN 
3: 1687 181 
3; 1688 1814 
; 1689 1815 ' Match the ‘('. 
3 1690 1816 ‘ 
3; 1691 1817 NEED_MATCH (DBGSCS_L_PAREN) ; 
3 1698 1818 
3: 169 1819 
; 16% 13st Get a new adverb node for the command List. 
3 1696 18 § GET_ADVERB_NODE; 
3 1697 18 
3; 1698 1824 
; H 344 \3 5 Flag a ‘DO* and save the <command List>. 
: 1701 1859 ADVERB_NODE CDBG$B_ADVERB_LITERAL] = ADVERB_DO; 
3 1708 1828 DBGSNSAVE BREAK BUFFER (.INPUT_DESC, ADVERB-NODE CDBG$L_ADVERB_VALUE)); 
: 170? 13 9 RETURN STSSK_SUCCESS; 
3; 17 18350 END; 
: 1705 8 1 
: 17 1 § 
; 170 183 ! If there's more on the Line, it's nothing we recognise. Signal 
: 1708 : : @ syntax error. 
3; 1710 1 § IF MATCH (DBGSCS_CR) THEN RETURN STS$K_SUCCESS; 
: 1711 1 -MESSAGE_VECT = BBGSNSYNTAX_ERROR (DBGSNNEXT_WORD (. INPUT_DESC)); 
: Hat : 3 A STS$K_SEVERE; 
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a 
GEVENT 1h-s6 -1984 00:59: AX-11 Bliss-32 V4.0-742 Pa 9 
ita tty 12-808 -13he 90:78:48 DEBUG. SRC IDBGEVENT B32: 1 - Bb 
DBGSCS_EXCEPTION= P.AAR 
DBGS$CS~CALL= P.AAS 
DBGS$CS_BRANCH= P.AAT 
DBGSCS-LINE= AAU 
DBGSCS-INSTRUCTION= P.AAV 
DBG$CS-EQUALS= AAW 
DBGSCS-L_PAREN= P.AAX 
DBG$CS_-R-PAREN= P.AAY 
DBG$CS- COMMA= AAZ 
DBG$CS-SLASH= P.ABA 
DBG$CS~COLON= P.ABB 
DBG$CS-CR= P.ABC 
PSECT DBGSCODE,NOWRT, SHR, PIC,O | 
OFFC 00000 .ENTRY DBGSEVENT SYNTAX, Save R2,R3,R4,R5,R6,R7,- ; 0589. 
o R9,R10,R1 : 
5E 24 C2 90002 SUBL2 #36 : 
5 08 AC 00 0000 MOVL § VERB_NODE, RO : 0715) 
04 Aad 7C 00009 CLRO —-_« & (ROY : 
58 04 AO 9E 900¢ MOVAB 4(RO), ADVERB_LINK + 0721) 
59 08 AO 9E 0001 MOVAB 8(RO), NOUN_LINK : 0722, 
50 01 AO 9A 00014 MOVZ7BL 1(RO). RO : Ore? | 
01 50 91 00018 CMPBséRO, wi : 0731) 
04 12 00018 BNEQ 1$ : 
56 04 0001D CLRL CMD_TYPE : 0733. 
08 11 OO0O1F BRB 2$ : 0734) 
OE 50 91 00021 1$: CMPB sO, #14 : 0739 
OA if 00024 BNEQ 3$ : 
56 01 OD 0026 MOVL #1, CMD_TYPE 3 0741. 
57 D4 00029 28: CLRL CMD_KINB 3 Ores | 
55 03 DO 00028 MOVL #3,” SUB_KIND : 0743. 
3A 11 000 BRB 7$ : 0727 | 
11 50 91 00030 3s: CMPB sO, «#17 > 0747 | 
08 12 000 BNEQ 4$ ; 
56 02 7D 00035 MOVQ #2, CMD_TYPE 3 0749 
55 2 vo 000 MOVL #2, SUB-KIND : 0751 | 
D 11 00038 BRB 7$ : O7e7 
0B 0 91 00 D 4$: CMPBséRO, #11 : 0755. 
: 1F 0004 BLSSU7$ ; | 
0c 91 0004 CMPBséaRO, #12 ; | 
1A 0004 BGTRU 7$ : 
56 09 0047 MOVL #3, CMD_TYPE : 0757 | 
1 000000006 D 4A MOVL DBG$GB_STP_PTR, R1 : 0758) 
55 1 9A 00051 MOVZBL (R1), SUB_RIND ; 
04 5 01 90 4 CMPL UB_KIND, "#4 : 0759 
4 12 00057 BNEQ : 
7 D4 00059 CLAL MD_KIND : 0761 
4 11 3 BRB 3 
OF D1 0 5$: CMPL § SUB_KIND, #15 : 0763. 
5 1 6 BNEG ; | 
57 § i) 6 MOVL aoe CMD_KIND : 0765 
1 6 BRB 7 : 
57 1 D9 6 g$: MOVL #1, CMD_KIND F 0768 
20 AE 1 b 6A 7$: MOVL #1, AFTER_COUNT 7 077? | 
A 7C 0006E CLRO = NOSILENT : 0780_ 


& 
opce vent rb-Sen-1984 00:59:19 YAK-11 BLige-82 v4. 0-742. Page (40 


oc 


1 

31 000000006 
5 
58 
08 


5A 


R, R1 


58 61 SILENT 


8$: MOVL 


So 
=> 


9$: MOVL , NOSILENT 
10$:  PUSHL 

PUSHAB DBGS$CS_SLASH 
OA CALLS #3, DBGSNMATCH 
0 RO, 11$ 

BRW 108$ 

11$: PUSHL #1 
PUSHAB ncn 


CALLS #3, DBGSNMATCH 
RO, #1 


00000000' 
000000006 


oo 
Wo 
oS 
o 


MOVIHROMOVYVIM OP MNOMNOVVIMIO VIN ODIOVIMOOCOM FP NNOOP -ViP or Yr YS 


00000000' 
000000006 00 


1 
TSTL MD_TYPE 
CMPL  CMD_TYPE, #1 
CMD_TYPE, #2 
16$ 


12$: PUSHL #1 
PUSHAB DBGSCS_COLON 


CALLS 4&3, DBGSNMATCH 
B . 148 


00000000" 


000000006 00 
1A 


MmrnovIVTVTVCTVWNOoowew 


OTDVWO ONO 19 F OVW MOUIWOS DW Oo 
o 
= 
v 
~- 


00000000° PUSHAB en 


00006 DBGSNMATCH 
00000000 60 at] 


co 
oO 
o 
So oo 
oOo woo 
MOVMTNODOWIOW'S Pwd 
_ 
ew 


~m 
r~ 


000000006 90 


15$: PUSHL 


00000000' GSCS_ TEMPORARY 


. DBGSNMATCH 


OWI SH MOWWMO MOOWW™T POWW™T QUAND SF OWWT BVOWWT 2] FWOODOOMvOmmmmm 
> NO OCOWWM DOOM 09 $9 $0 30 0 70 COW 0 OD OW OV OMU0—o0990 NNN 
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DBGEVENT 16-Sep-1984 00:59: AX=11 BLi 
Mivetitaty 192808= 1382 9 33:18 DEBUG. SRC} 
4 12 001 6 BNEQ 18$ 
A 98 Sorta bear fen 
01 2 pj 13¢ CMPL MD_TYPE, #1 
13 0013F BEQL 7 
02 : o1 14} hi cH MD_TYPE, #2 
18 AE gr 06 146 193: MOVL é { TEMPORARY 
88 po 14C 18$: PUSHL @# 
00000000" EF 9F O014E PUSHAB DBGSCS_SILENT 
; DD 00154 PUSHL ny 
000000006 00 FB é CALLS 4 ; DEGSNMATCH 
~ RRB Be a 
0 a 
04 DD 00169 19$:  PUSHL #4 
00000000' FF OF 0168 PUSHAB DBGSCS_NOSILENT 
3 Od 00171 PUSHL 
000000006 00 03 FB 00173 CALLS #3, DBGSNMATCH 
01 50 D1 OO17A CMPL RO, #1 
05 12 0017D BNEG 20 
e oF TR bores ee ae tag eee 
01 DD 00184 20$: PUSHL #1 
00000000' EF F 0186 PUSHAB —- 
000000006 00 03 FB O08 CALLS #3, DBGSNMATCH 
: 2) 
St a a a 
01 9 iy O019¢ CMPL CHD _TYPE, #1 
6F 12 OO1A1 218: BNEG 1$ 
57 D4 OOIA3 228:  CLRL  CMD_KIND 
76 97 OIA? 238: Reese 
01 DD 001A9 si PUSHL #1 
00000000' ai oF O1AB PUSHAB "pecs 
000000006 00 03 FB 001B3 CALLS #3, DBGSNMATCH 
01 6 pI O1BA CMPL sO. #1 
1 1BD BNEQ 
an oe 
01 9 D1 001C3 CMPL CHD _TYPE, #1 
5 12 1G BNEO 5$ 
D4 001C8 25$ CLRL CMD_KIND 
55 1 D0 1CA MOVL #1," SUB_KIND 
of 1 1€D 368 BRB 37§ 
1 po ICF 27$ PUSHL #1 
00000000" €F 9F 00101 PUSHAB DBGSCS_MODIFY 
DD 00107 PUSHL R 
000000006 00 FB 109 CALLS #3, DGSNMATCH 
D1 OO01E0 CMPL SRO. 


mn 8 
GEVENT 1b-se -1984 00:59:1 AX-11 Bliss-32 V4.0-742 Page 42 
ita tty 12-8 08-13be 90:38: DEBUG. SRCJDBGEVENT.832;1 oe 8) 
01 1€ BNEQ 30S : 
: p iE TSTL MD_TYPE : 0953 
1E BEQL $ : 
01 D1 001E9 CMPL CHD _TYPE, rh + 0954 
48 12 OO1EC BNEO 5$ : 
57 D4 OOIEE 288:  CLRL § CMD_KIND + 0957 
55 0¢ DO OO1F MOVL 43 SUB_KIND : 095 
11 OO1F 08: BRB 40$ + 095 
01 po 165 30$:  PUSHL #1 + 0969 
00000000' Ef F OO1F PUSHAB DBGSCS_EXECUTE : 
DD OO1FD PUSHL R : 
000000006 00 2 FB 1FF CALLS #3, DBGSNMATCH : 
1 D 06 CMPL 0, #1 : 
10 12 00209 BNEQ 34 : 
36 D5 00208 TSTL MD_TYPE + 0976) 
05 1300 Op BEQL ; | 
01 56 01 0020F CMPL CHD TYPE, rT : 0977) 
é 12 00212 318: BNEG 5g : 
D4 00214 32$:  CLRL  CMD_KIND + 0980 | 
55 03 DO 00216 MOVL  #3,~SUB_KIND + 0981 | 
GE 11 O0g19 338: BRE 42$ : 0976 | 
01 DD 0021B 34$:  PUSHL #1 : 0992 
00000000' Ff oF 00 1p PUSHAB DBGS$CS_RETURN : 
3 oD 00 PUSHL R : 
000000006 00 03 FB 00225 CALLS #3, DBGSNMATCH : | 
01 50 01 0020¢ CMPL =s RO, #1 : | 
OF 12 OO022F BNEG = 3 : 
02 36 D1 00231 CMPL CHD _TYPE, #2 : 0999. 
03 12 00234 BNEQ $ : 
O7FF 31 00 6 358: BRW 1 : 
57 D4 00239 368:  CLRL © CMD_KIND : 1003 
55 04 DO 00238 MOVL #4, ~SUB_KIND > 1003) 
65 11 00 378: BRB 44$ : 0999 
01 DD 00240 38$:  PUSHL 41 : 1014) 
00000000° Ef OF 00 4 PUSHAB DBGS$CS_EXCEPTION : | 
3 Od 0024 PUSHL ; 
000000006 00 03 FB O024A CALLS #3, DBGSNMATCH ; 
01 0 D1 00251 CMPL =sRO, #1 : 
16 12 00254 BNEQ 41 : 
6 D5 00 6 TSTL MD_TYPE > 1021. 
A 13 0025 BEQL 9 : 
01 6 D1 0025A CMPL MD_TYPE, #1 > 1022 | 
05 13 D BEQL ; | 
03 pj if cMPL MD_TYPE, #3 > 1023 
57 06 ee 39$:  MOVL #2 CMD_KIND : 10 $ 
55 F : 67 MOVL §, SUB_KIND : 1027. 
; 1 0026A 40$: BRB : 1021 | 
02 DD 0026C 41$:  PUSHL #2 : 1038. 
00000000° Ff F ge PUSHAB DBG$CS_SOURCE : 
DD PUSHL R : 
000000006 00 Fe 76 CALLS ‘ ' DEGSNMATCH ; 
if BNEG 438 ; 
mo 10 AE pe teat | WOSOURTE : 1800 
SF 8 42$: BRB No > 0820 
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DBGEVENT 16-Sep-1984 00:59: AX-11 Bliss-32 V4.0-742 Page 43 
Mivetitay 13-808- 138 Tet DEBUG. SRC IDBGEVENT .B 3271 9 8) 
04 po B 43$: PUSHL #4 + 1047) 
00000000" €F oF PUSHAB presets: : | 
000000006 00 ; FB 9 CALLS é ; DEGSNMATCH : | 
6 12 ge BNEQ 4 : 
10 AE 1 7D 002A1 MOVQ #1. NOSOURCE + 1049 
66 11 a3 44$: BRB 49$ : 0820 
gp A7 45$: PUSHL #2 : 1056) 
00000000' ai F 002A9 PUSHAB DBGSCS_SYSTEM : | 
DD OOZAF PUSHL R : 
000000006 00 Q FB 0 8} CALLS ‘ , DBGSNMATCH : 
1 NEG 46 : 
02 3 of 6 BD EMPL MD_TYPE, #2 3 106 
66 1 C9 BEQL : 
OC AE 1 00 002¢ MOVL #1, SYSTEM + 106 
08 AE D4 0 C6 CLRL Nos ySTEM + 106 
62 11 002C BRB 523 + 106 
04 DD 002CB 46$:  PUSHL #4 : 107 
00000000' gf 9F 00 CD PUSHAB DBGS$CS_NOSYSTEM : 
3 Dd 0020 PUSHL R F 
000000006 00 03 a) 20 D5 CALLS 3, DEGSNMATCH : 
0B 12 002DF BNEG 48 F 
02 28 D1 002E1 CMPL §CMD_TYPE, #2 : 1085 | 
62 13 00264 BEQL 548 : 
08 AE 01 7D 00266 MOVG #1, NOSYSTEM + 1088 
64 11 OO2EA 47$: BRB 55§ + 1085 
01 DD OO2EC 48$: PUSHL #1 : 1100 
00000000' EF OF OO2EE PUSHAB DBGSCS_INTO : 
3 DD 0024 PUSHL : 
vepmece OS AR SS GALS 43. gpewarcn : 
D 12 00 BNEQ 50 ; 
02 6 D1 0030 CMPL  CMD_TYPE, #2 : 110 
64 13 0030 BEQL 86‘ §7 F 
04 AE 01 pd 00 07 MOVL #1, INTO : 111 
6E D4 00 CLRL OVER : 111 
64 11 00300 49%:  68RB 8$ + 110 
1 pp O3OF 50$:  PUSHL #1 : 112 
00000000' Ff F 00311 PUSHAB DBGSCS_OVER ; 
DD 00317 PUSHL R : 
000000006 90 9 FB 19 CALLS ‘ ‘ DBGSNMATCH : 
ee 2 ee ee ta 
64 rt 851$: BEQ 60S ; 
6E 1 70 A MOVG #1, OVER ; 1131 
67 11 D 538: BRB 61$ 711 q 
1 po fF 53$:  PUSHL #1 : 114 
00000000' €F 9F 1 PUSHAB DBG$CS_CALL ; 
DD 7 PUSHL R ; 
000000006 00 Fe 9 CALLS #3, DBGSNMATCH ; 
| ch a : 
02 6 i 4 CMPL = CMD_TYPE, #2 > 1150 
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01 OD 3 99 62$: 
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eines OF 8) OF a A 
oon? $3 OO3Ar 
02 56 (D1 00389 63$: 
78 3 tH 64$: 
57 01 DO 00387 
55 08 DO 003BA 
01 0D 00380 
00000000' 4 of $ zt 
ome 
ome f RHE 
00000000' gf 4 6 
000000006 00 03 : H 
4 OD E8 65$: 
000000006 9 i 4 eA 
08 A& D4 F4 
9 54 DO ‘7 
9 08 a 43 43 
000000006 00 if F 406 
64 0 D 
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#, SUB-KIND 
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#3, DBGSNMATCH 
RO, #1 
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64$ 
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#7. SUB-KIND 
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66$ 
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#8, SUB_KIND 
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#9, SUB_KIND 
DBGSCS_L_PAREN 

#3, DBGSNMATCH 

RO. 67$ 
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DBGEVENT 1b-5e =1984 00:59: AX=11 Bliss-32 v4.0-742 Page 45. 
viteeitty He Pa Pee Ma RRO Ft ae he ~~ we 


1 
01 DD 0040 PUSHL #1 : 1256. 
00000000" EF BF abe PUSHAB DBGS$CS_COMMA : | 
DD 0041 PUSHL : 
000000006 00 FB 414 CALLS #3, DEGSNMATCH : 
we 81 Bp oocte ice se : 1261. 
00000000' Ff oF 4 6 PUSHAB DBGS$CS_R_PAREN : 
; DD 04 6 PUSHL : 
000000006 99 9 FB 4 CALLS #3, DBGSNMATCH : 
: : 04 F BLBS RO. 71$ : 
obs op Ser GO: BIR, gah Lass 
000000006 00 0 FB S CALLS #1, DBGSGET_TEMPMEM : 
54 0 DO 0043E MOVL RO, NOUN_NODE : 
08 AS D4 00441 CLRL 8 (NOUN_NODE) : 
9 54 DO 00444 MOVL NOUN_NODE, (NOUN_LINK) : 
9 08 Ad 9E 00447 MOVAB 8 (NOON_NODE), NOON_LINK : 
53 DD 00448 PUSHL R3 : 1272 
000000006 00 01 FB 00440 CALLS #1, DBGSOPCODE_INDEX ; 
64 50 DO 00454 MOVL RO, (NOUN_NODEY : 
49 11 00457 BRB 71$ + 1226 
01 DD 00459 68$:  PUSHL #1 : 1287 
00000000' Ef 9F 00458 PUSHAB P.ABD ; 
3 DD 00461 PUSHL R ; 
000000006 00 03 FB 00463 CALLS #3, DBGSNMATCH : 
01 50 D1 0046A CMPL =e RO, #1 : 
08 12 0046D BNEQ 69$ : 
00000000" EF 9F 0046F PUSHAB P.ABE : 1288) 
Ic 11 00475 BRB 208 ; 
03 DD 00477 69$: PUSHL # + 1290 
00000000' ai 9F 00479 PUSHAB  P.ABF : 
3 DD 0047F PUSHL ; 
000000006 00 03 FB 00481 CALLS #3, DBGSNMATCH : 
01 50 D1 00488 CMPL = RO, #1 : 
AS 12 00488 BNEG 66$ : 
00000000" EF 9F 00480 PUSHAB P.ABG > 1291 
01 DD 00493 708 PUSHL : | 
00028148 8F DD 00495 PUSHL #164168 ; 
000000006 00 03 FB 004 CALLS #3, LIBSSIGNAL : 
FBFF 31 O04A2 71$:  — BRW 10§ ; 
01 DD 004A5 72$:  PUSHL #1 : 1329) 
00000000' Ef 9F O004A7 PUSHAB DBGS$CS_RETURN ; | 
3 DD 004AD PUSHL ; 
000000006 90 03 FB O4 AE CALLS #3, DEGSNMATCH : 
' > 9 o0cBS BNEG OSS : | 
gf D4 00488 CLRL = CMD_KIND + 1331 
55 04 DO 004BD MOVL  #4,~SUB_KIND : 1 4 
H aco BRB 77$ : 1323) 
02 po 4C2 73%:  PUSHL #2 > 1338. 
00000000' ef F 004C4 PUSHAB DBG$CS_SOURCE ; 
3 DD OO4CA PUSHL R ; 
000000006 00 ; FB Ace CALLS #3, DBGSNMATCH ; 
01 p 4D CMPL =s RO. #1 ; 
9 : 406 BNEQ 74 ; 
16 AE 1 p00 0040 MOVL #1, SOURCE ; 1340 
10 AE 04 0040¢ CLRL  NOSOURCE > 1341 
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DBGEVENT bese =1984 00:59:1 AX-11 Bliss-32 V4.0-742 
vida ba aet 1 90:38:48 YOEBUG. SRCIDBGEVENT_BS2-1 
72 11 OO4DF BRB 79$ 
04 tg 4E1 748: PUSHL #4 
00000000' Ef F OO4E PUSHAB DBG$CS_NOSOURCE 
DD 004E PUSHL 
000000006 00 p FB O04E CALLS #3, DEGSNMATCH 
01 D1 O04F CMPL =soRO, @ 
6 12 O04F BNEQ 7 
10 AE 1 7D O4F MOVQ #1, NOSOURCE 
1 11 004FB BRB 81$ 
02 DD OO4FD 75$: PUSHL #2 
00000000" EF 9F OO4FF PUSHAB DBGSCS_SYSTEM 
: DD 0505 PUSHL 
000000006 00 FB 00507 CALLS #3, DBGSNMATCH 
01 0 D1 0050 CMPL 0; #1 
09 if} 0511 BNEQG 76$ 
OC AE 01 00 00513 MOVL #1, SYSTEM 
08 AE D4 00517 CLRL NOSYSTEN 
70 11 O051A BRB 83$ 
04 DD 0051C 76$:  PUSHL &# 
00000000' EF 9F O051E PUSHAB DBGS$CS_NOSYSTEM 
53 DD 00524 PUSHL 
000000006 00 03 FB 00526 CALLS #3, DBGSNMATCH 
01 50 D1 00520 CMPL =e RO, #1 
06 12 00530 BNEQ 7 
08 AE 01 7D 00532 MOVQ #1, NOSYSTEM 
6F 11 00536 77$: BRB 85$ 
02 0D 00538 78$: PUSHL #2 
00000000" EF 9F 0053A PUSHAB DBGSCS_SILENT 
53 DD 00540 PUSHL R3 
000000006 00 03 FB 00542 CALLS #3, DBGSNMATCH 
01 50 D1 00549 CMPL = RO, #1 
07 12 005ac BNEQ 80% 
5B 01 00 0054E MOVL #1, SILENT 
5A D4 00551 CLRL NOSILENT 
70 11 00553 798: BRB 87$ 
04 DD 00555 80$:  PUSHL #4 
00000000' EF 9F 00557 PUSHAB DBG$CS_NOSILENT 
3 pd 0055p PUSHL 
000000006 00 03 FB 0055F CALLS #3, DBGSNMATCH 
01 50 D1 00566 CMPL =s RO, #1 
5 12 00569 BNEQ 82 
SA 1 7D 00568 MOV #1, NOSILENT 
3°11 056 81$: BRB 89$ 
01 pp 09 82$:  PUSHL #1 
00000000' Ef F 0057 PUSHAB DBGSCS_INTO 
; DD 097 PUSHL 
000000006 00 9 FB 0057A CALLS #3, DBGSNMATCH 
01 0 bi 00581 CMPL ss RO. #1 
08 if} 05 BNEQ 84 
04 AE 1D 3 MOVL #1, INTO 
$f D4 A CLRL over 
11 0058C¢ B38: BRB 1 
01 po 4$:  PUSHL #1 
00000000" EF 9F PUSHAB DBGSCS_OVER 
; DD 36 PUSHL R 
000000006 00 FB 059 CALLS #3, DBGSNMATCH 
01 0 D1 0059F CMPL ss RO. #1 
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9 “11 Bliss-32 V4.0-742 (8) 
~Sep~1984 00:59: ey T.832;1 
ine Vesiect94e QB:A2:19 YASS Bhat 7 
-000 ALLS #3, DBGSNMATCH : 
‘ 000000006 00 93 EB oboge Let’ RO 988 ; 1472 
* i$. ose ret MESA DBGSGET TEMPHEN ; 
000006 00 f MOVL = RO, N ; 
ca : 08 ae of ora CLRL Ee et LINK) ; 
9 54 bP gre MOVAB 8(NOON_NODE), NOON_LINK £1479 
: °° 83 bb does CALLS #1» DBGSOPCODE_INDEX ae 
1 FB 006 OR’ NODES : 1482 | 
000000006 00 80 BO 0e8B MOVE RO’ (NOUN, 1482 
64 31 bb 0068 PUSHL se tenn ; | 
0000" EF oe 0890 PUSHAB DAGSCS_ ; | 
ae + PB 00898 CALLS #3, DBGSNMATCH = 
000000006 00 FS Bs tt: BLBS RO, 968 ; 1487, 
r3 1 DD 906A2 PUSHAB DBGSCS_R_PAREN 
0000" EF SF boeAs PUSHAB DBGSCS_R_ 
somes BS eae CALLS #3, paGSNMATCH 
. 
000000006 99 50 is 0683 |, BLBS RO, 1491 
a *' 0) 0689 98$: eke a DBGSGET TEMPMEM : | 
00 ER Bo 43 MOVE” RO; NOUN. NODE : 
rs 08 AS D4 006C ROVE. NOUNCNODE..- CNOUN, LINK) 
69 36 BO Boece MOVAB S(NOUN. NODE)» NOON-L INK ; 1497 
ae °° 8S bb Boob, CALLS #1, DBGSOPCODE INDEX | 
01 FB 00601 CALL RO, (NOUN_NODES : 1455) 
000000006 09 50 D0 0608 Hy 44 103$ 7 ; 1507) 
31 DD DeDD 99$: PUSHL #1 : | 
000' EF 9F OoeDr PUSHAB P. ABH 
a aS: : an: a ae = 
ra ae 30 i O6EE BNEG 1068". ; 1508 
> BF Of Sher PUSHAB P.ABI : 1510 
00000000" EF 9F O06F3 BRB 1918 
0$ DD OOgFB 1008: PUSHL 
000° EF OF Sep PUSHAB  P.ABJ 
voee 5 DD Rh Og CALLS a DBGSNMATCH : 
000000006 90 3 of B70 4 es : 1511 
8 PUSHAB P. ABK | 
00000000" 1 bb OorI7 tors: PUsHE l cies 
F Dd 00719 mit fs $SIGNAL : 1523 
00028148 3 FB OO7IF CALLS oye LIB : | 
anpramena + BP 00758 °**  BUSHAB DaGscS_cOMMA 
00000000" EF Od 907 cate af. DBGSNMATCH 
000000006 99 2 3 77 BLBC RQ, pe 
8s bp 00780 1038: PUSHL 
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14-Sep-1984 DEBUG ENT.B32;1 
3 oD 0070 PUSHL : 1585 
000000006 99 oi FB ps CALLS #1, DBGSGET_TEMPMEM : 
D A: OVL RO, ADVERB_RODE : 
08 A2 D4 OO7E CLRL  8(ADVERB_NODE) _ : 
68 5 pO 7E4 OVL  ADVERB_NODE, (ADVERB_LINK) : 
08 A 7E7 MOVAB 8 (ADVERB NODE), ADVERB_LINK : 
AE D5 OO7EB TSTL AF TER.COONT + 1592) 
1 7E BNEQ 118 3 
62 1 90 OO7F MOVB #1, (ADVERB_NODE) + 1594. 
7 11 OO7F BRB 119$ : 
62 94 007F5 118%: CLRB  (ADVERB_NODE) + 1597) 
046 A2 20 AE 09 7F MOVL AFTER COUNT 4 (ADVERB_NODE ) : 1598 | 
16 38 E9 OO7FC 119$:  BLBC SILENT, 208 : 1606 | 
03 DD OO7FF PUSHL # + 1608 
000000006 99 gi FB 0801 CALLS #1, DBGSGET_TEMPMEM : 
0 DO 00808 MOVL RO, ADVERB_NODE 3 
08 A2 04 00808 CLRL 8 (ADVERB_NODE) ; | 
6 52 DO b8OE MOVL ADVERB_NODE, (ADVERB_LINK) : 
58 08 A 3 081 MOVAB 8(ADVERB_NODE), ADVERB_LINK : | 
62 02 90 00815 MOVB H2 (ADVERB_NODE) + 1610) 
iC 11 00818 BRB 121$ : 1606 
19 5A €9 OOB1A 120$: BLBC NOSILENT, 121$ > 161 
03 DD 0081D PUSHL @# > 1615 
000000006 00 01 FB OO8IF CALLS #1, DBGSGET_TEMPMEM ; 
52 50 00 008 6 MOVL RO. ADVERB_NODE : 
08 A2 D4 00829 CLRL 8 (ADVERB_NODE) : 
68 52 00 pe C MOVL ADVERB_NODE, (ADVERB_LINK) : 
SB 08 A2 9E 0082F MOVAB 8(ADVERB_NODE), ADVERB_LINK : | 
62 03 90 008 3 MOVB #3, (ADVERB NODE) : 1617 
19 18 at E9 00836 121$: BLBC [EPPORARY T22$ 3: 1623 
03 0D OOBSA PUSHL @# > 1625 
000000006 00 01 FB 008 ¢ CALLS #1, DBGSGET_TEMPMEM : | 
52 50 DO 0084 MOVL RO. ADVERB_RODE ; 
08 A2 D4 00846 CLRL 8 (ADVERB_NODE) ; 
68 52 DO 00849 MOVL ADVERB_NODE, (ADYERB_LINK) : 
58 08 A 3 084C MOVAB 8(ADVERB_NODE), ADVERB_LINK F | 
62 01 9 ta MOVB #1, (A FRO NODE 3 1627 
19 14 AE E9 0085 122$: BLBC SOURCE, 1238 > 1634 | 
0 DD 00857 PUSHL # > 1636 
000000006 00 1 FB 00859 CALLS #1, DBGSGET_TEMPMEM ; 
52 50 D 0860 MOVL RO, ADVERB_RODE : 
08 A2 04 0086 CLRL 8 (ADVERB_N ; 
$f 5 0 0 re MOVL ADVERB_NODE, (ADVERB_LINK) g 
8 08 A F 0 MOVAB 8 (ADVERB_NODE), ADVERB_LINK ; | 
62 oc 9 D MOVB = #12 CADVERS NODE) + 1638 | 
19 10 AE £9 08 0 123$: BLBC  NOSOURCE, 122$ > 1641 | 
DD 00874 PUSHL @# > 1643 | 
000000006 00 1 FB 76 CALLS #1, DBGSGET_TEMPMEM F 
52 D 7 MOVL RO. ADVERB NODE ; 
08 A2 D4 CLRL 8 (ADVERB_NODE) ; 
68 5 b0 MOVL ADVERB_NODE, (ADVERB_LINK) : 
58 08 A MOVAB 8(ADVERB NODE), ADVERB_LINK ; 
ge ; 9 A MOVE = #13, CADVERB_NODE) : 1645 
1 ; 124%:  CMPL Hp KIND, @ : 1651 
3 BEQL 258 : 
D 9 TSTL CHD KIND > 1652 | 
8B 12 00894 BNEG 1298 ; 
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vpee 0 1o-808-1388 90: 3848 DEBUG. SRC IDBGEVENT .B32:1 
2 Ai gauss airy fuggtim. 
19 0c af 1g 98 125$: BLBC SYSTEM, 126$ 
DD OO89F PUSHL #3 
000000006 99 1 FB Al CALLS #1, DBGSGET_TEMPMEM 
D AB MOVL RO, ADVERB_RODE 
08 A2 04 008AB CLRL 8 ADVERB_NODE) 
$ 5 pd AE MOVL  ADVERB_NODE, (ADVERB_LINK) 
08 A a MOVAB 8(ADVERB_NODE), ADVERB_LINK 
é OF 9 BS MOVB #14, (ADVERB_NODE) 
1 08 AF E BB 126$: BLBC NOSYSTER, 127$ 
DD 0 BC PUSHL @ 
000000006 99 } FB BE CALLS #1, DBGSGET_TEMPMEM 
5 DO 008C MOVL RO. ADVERB_RODE 
08 A2 04 0 a.) CLRL 8 (ADVERB_NOD 
$6 52 00 cB MOVL ADVERB_NODE, (ADVERB_LINK) 
5 08 A 3 08C MOVAB 8(ADVERB_NODE), ADVERB_LINK 
62 OF 90 008 MOVB #15, (ADVERB_NOD 
19 04 AE E9 9080 127$: BLBC INTO, 128$ 
03 DD 00809 PUSHL #3 
000000006 00 01 FB 008D CALLS #1, DBGSGET_TEMPMEM 
52 50 00 OBE MOVL RO, ADVERB_RODE 
08 Ag D4 OBE CLRL 8(ADVERB_NODE) 
68 52 DO OO8E8 MOVL ADVERB_NODE, (ADVERB_LINK) 
58 08 A2 3 OOBEB MOVAB 8(ADVERB_NODE), ADVERB_LINK 
62 10 90 OOBEF MOVB #16, (ADVERB_NODE) 
19 oF E9 b0BFe 128$: BLBC OVER, 129$ 
03 DD OO8F PUSHL #3 
000000006 00 01 FB OOBr7 CALLS #1, DBGSGET_TEMPMEM 
52 50 DO OOBFE MOVL RO, ADVERB_RODE 
08 A2 04 00901 CLRL 8(ADVERB_NODE) 
58 52 00 90904 MOVL §§ ADVERB_NODE, (ADVERB_LINK) 
58 08 A 3 0907 MOVAB 8 (ADVERB_NODE), ADVERB_LINK 
6¢ 11 90 00908 MOVB #17, (ADVERB_NODE) 
0 56 D1 00905 129$: CMPL CMD TYPE, 
60 13 00911 BEQL 1328 
of p5 0091 TSTL § CMD_KIND 
¢ 12 0091 BNEG 1328 
4 DD 00917 130$: PUSHL #4 
000000006 00 1 FB 919 CALLS #1, DBGSGET_TEMPMEM 
4 0 D 9 9 OVL RO, NOUN_NODE 
08 A& D4 009 CLRL _8(NOUN_NODE) 
69 54 D0 009 $ MOVL NOUN_NODE, (NOUN_LINK) 
59 08 Ad . 09 MOVAB 8 (NOON_NODE), NOON LINK 
00000000° EF 01 92D MOVB #1, DBG$GB_SET_BREAK_FLAG 
oc AC bp $3 4 PUSHL SSAGE_VECT 
7E 000000006 8 9A 00939 MOV ZBL DBGSGB_RADIX, (SP) 
18 BB 0094 PUSHR #*M<R37R4> 
000000006 99 Q FB 094 CALLS as, DBGSNPARSE_ADDRESS 
00000000' gf 8 94 CLRB § DBGSGB_SET_BREAK_FLAG 
01 5 01 009 CMPL TATUS, #1 
ig 13 009 BEQL $ 
5 p 9 TSTL TATUS 
04 959 BEQL 1 
50 5 pd 00958 MOVL STATUS, RO 
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Mivetita 12-86-1382 90:78:88 DEBUG. SRC JDBGEVENT.832;1 od 
04 iT: T : 
01 BD 95F 131$:  PUSHL #1 + 1733 
00000000' EF 9F 00961 PUSHAB DBGSCS_COMMA : | 
DD 00967 PUSHL R : 
000000006 00 FB 3 9 CALLS #3, DEGSNMATCH : | 
1 gD $8 132$: PUSHL 3: 1742) 
00000000' EF 9F 0097 PUSHAB DBGSCS_CR : 
DD 00978 PUSHL : 
000000006 9 Fe 97D CALLS 1 ‘ DEGSNMATCH : 
E8 00984 BLBS : 
0 38 D} 987 CMPL Eas TYPE, #3 + 1749) 
§ 98A BNEQ 36$ 3 | 
03 1 OA ‘ 9 BLBS  28(SP), 133$ + 1770) 
00a5 31 0099 BRW 138$ : | 
03 OD 844 1338: PUSHL @# 3; 1753 
000000006 99 gi FB 99 CALLS #1, DBGSGET_TEMPMEM : | 
2 0 pO 0099C MOVL RO, ADVERB_NODE 3 
68 1 tf BoR0 abve BcADVER eONe eT ADVERB B_LINK) ; 
58 08 A2 9E 009A5 MOVAB 8 (ADVERB NODE), ADVERB LINK : 
62 94 009A9 CL (ADVERB_NOD DE) : 1766 
OC AC DD 009AB PUSHL MESSAGE -VECT : 1770 
04 A 3 O9AE PUSHAB < CADVERE. NODE) + 1769 
000000006 00 03 FB 098 CALLS a. DEGSNSAVE. DECIMAL_INTEGER ; 
0 0 OO9BA 134$: BLBC RO, 1 ; 
0006 31 009BD BRW 1488 : 
OOED 31 009C0 135$: BRW 145$ : 1775 
01 dD b99¢ 136$: PUSHL #1 : 1786 
00000000' EF 9F 009C¢ PUSHAB DBGSCS_WHEN ; 
3 pd 009¢B PUSHL R : 
000000006 90 95 FB 009CD CALLS #3, DEGSNMATCH ; 
9 0 € 00904 BLBC = RO, 1378 F 
01 DD 00907 PUSHL : 1793 
00000000' Ef 9F 00909 PUSHAB DBGSCS_L_PAREN ; 
3 Dd 0090F PUSHL ; 
000000006 00 03 FB 43) CALLS #3, - BEGSNMATCH F 
4 DD O3EB PUSHL #3. : 
000000006 00 1 FB 9ED CALLS #1, DBGSGET_TEMPMEM : 
52 Nn) OF MOVL RO. ADVERB_NODE : 
08 8S OS Bora sin BCADVER NODE) LINK) : 
$f 08 A oe ey MOVAB 8(ADVERB_NODE), ADVERB_ ; 
62 04 9 Ag} MOVB #4, (ADVERB NODE) > 1803 
04 =A a A 4 PUSHAB A CADVERS _NOBE) ; 1804 | 
000000006 00 6 FB Ni CALLS #2, DBGSNSAVE_BREAK_BUFFER ; 
pp A10 137$:  PUSHL : 1810 
00000000' EF SF OOA1 PUSHAB DBG$CS_DO : 
DD OOAI PUSHL R ; 
000000006 90 FB AlA CALLS ‘ . DBGSNMATCH ; | 
1 BD Ad4 PUSHL @ : 1817 
00000000' Ef F OOA26 PUSHAB DBGSCS_L_PAREN ; 
3 Dd OOA2C PUSHL R ; 
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16-Sep-1984 99:33 


14-Sep-1984 
3 Fe A CALLS 
E A BLBS 
1 pp A358 138$: PUSHL 
00000000' gf F QOASA PUSHAB 
; DD O0A4 PUSHL 
0 £9 doad BL 
00028000 F DD QOA4C 139%:  PUSHL 
1 o . CALLS 
1 1 RB 
03 oD A B 140$:  PUSHL 
gt FR ASD CALLS 
0 OD A64 MOVL 
08 A2 D4 00A67 CLRL 
52 00 QOA6A MOVL 
08 A 43 Bago MOVAB 
05 90 QOA71 MOVB 
04 Ag 9F OOA74 PUSHAB 
53 DD Beare PUSHL 
02 FB QOA79 CALLS 
14 11 QOA80 BRB 
01 DD OOA82 141$:  PUSHL 
00000000° gf 9F OOA84 PUSHAB 
3 DD OOA8A PUSHL 
03 FB BR Aat CALLS 
50 €9 QOA9 BLBC 
01 DO QOA96 1428: MOVL 
04 00A99 RET 
53 0D Benge 143$: PUSHL 
01 FB QOA9 CALLS 
50 DD QOAA PUSHL 
01 FB QOAA CALLS 
50 DO OOAAC 144$: MOVL 
04 DO QOABO 145$: MOVL 
04 OOAB3 RET 
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LOBAL ROUTINE DBGSEVENT_SEMANTICS(VERB_NODE, MESSAGE_VECT) = 


FUNCTION 
This routine builds the event data stuctures based on the 
parse tree passed via the VERB_NODE address. This routine 
is called from DBGNSET. 


INPUTS 
VERB_NODE : A pointer to a DEBUG verb node, which defines, 
along with the verb's descendants, the desired 


command. 
MESSAGE_VECT: The address of a longword to contain the address 
of a message argument vector. 
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OUTPUTS 
The event data structure(s) are updated to include the new event, 
and may include: 


EVENTSCMD_QUEUE 
EVENTSWHER QUEUE 
EVENTSDO_LIST QUEUE, 
EVENTSPAGE_QUEUE | 


STS$K_SEVERE is return on error, otherwise STS$K_SUCCESS | 
| 


G 
' 
i 
i] 
' 
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coco SN NNSA AAA AAA AO Fed tet ek ee ek ee ee 


5 

5 

5 

5 

5 

5 

5 
3 5 
3 5 
3 5 
3 
3 6 
: BEGIN 
4 MAP 
: VERB_NODE : REF DBGSVERB_NODE; ! Verb node pointer 
: Lace, . 
4 EVENT_QUEUE : QUEUE HEAD ! Working queue head 
4 QUEUVE_ENTRY : REF EVENTSEVENT_DESCRIPTOR, ! Event queue entry pointer 
4 @ REF EVENTSEVENT DESCRIPTOR, ! Event queue entry pointer 
5 7 EVENT_ENTRY REF EVENTSEVENT DESCRIPTOR, ! Event entry pointer 
5 7 DO_ENTRY : REF EVENTSDO_LIST DESCRIPTOR, ! DO List entry pointer | 
5 7 WHEN_ENTRY : REF EVENTSWHEN_DESCRIPTOR, |! WHEN entry pointer 
5 7 ADVERB_NODE : REF DBGSADVERB NODE, ! Adverb node Link 
2 7 NOUN_NODE : REF DBGSNOUN_NODE, ! Noun node Link 
5 PRIMARY : REF DBGSPRIMARY, ! Event primary descriptor 
2 8 VALUE : REF DBGSVALDESC, ! Event value descriptor 
5 4 ADDRESS : VECTOR C2), ' Event address 
6 8 ADR_TYP, ' Event address type 
° LENGTH, ! Event value length 
6 STRING : REF VECTOR C, BYTE), ! Text pointer 

COUNTER; ' Counter variable 


LSAk 


Initialize the working queue to be empty. 


EVENT_QUEUE FL_QUEVE_FLINK = EVENT_QUEUE; 
EVENT~QUEUE CL7QUEUE~BLINK] = EVENT "QUEUE; 
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9 
5 9 ' Get an event descriptor from permanent memory, and 
4 9 ' Link it Ynto the working queue. Also inititialize the 
5 : inside queue header. 
$ 0 EVENT_ENTRY = DBGSGET_MEMORY (EVENTSK_EVENT_DESCRIPTOR_SIZE); 
8 : INSQUE (.EVENT_ENTRY, EVENT QUEUE); 
79 EVENT_ENTRYCEVENTSL_EXC_FLIAK] = .EVENT_ENTRY; 
EVENT_ENTRYLEVENTSL_EXC_ BLINK] = .EVENT_ENTRY; 
; 0 

0 

0 


Set the event's command type, found in the verb. 
SELECTONE .VERB_NODE CDBG$B_VERB_COMPOSITE) OF 
CEVENTSK_SET_BREAK): 
EVENT_ENTRY CEVENTSB_CMD_TYPE] = EVENTSK_TYPE_BREAK; 
CEVENTSK_SET_BREAK_EXC): 
BEGIN 


EVENT_ENTRY CEVENTSB_CMD_TYPE] = EVENTSK_TYPE_BREAK; 
EVENT-ENTRY CEVENTSB_CMD_KINDJ = EVENTSK_KIND_EXC; 


CEVENTSK_SET TRACE): 
EVENT_ENTRY CEVENTSB_CMD_TYPE] = EVENTSK_TYPE_TRACE; 


CEVENTSK_SET_WATCH): 
GIN 
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EVENT_ENTRY CEVENTSB_CMD_TYPE] = EVENTSK_TYPE_WATCH; 
80 EVENT-ENTRY CEVENTSB_CMD_KIND] = EVENTSK-KIND-ACC; 
804 EVENT_ENTRY CEVENT$B_SUB_KIND] = EVENTSK_ACC_MDFY 
805 END; 
806 3 
rtf 3 CEVENTSK_SET_STEP, 
808 3 EVENTSK_ST z 
rss ; EVENT_ENTRY CEVENTSB_CMD_TYPE] = EVENTSK_TYPE_STEPS; 
811 3 COTHERWISE): 
alg ; $DBG_ERROR( *DBGEVENT\EVENT_SEMANTICS 10°); 
814 3 TES; 
HE <4 
B17 rt} ! Initialize the Deleted, Silent, Once (Temporary), Threaded, and 
aig ve Has Value Descriptor tlags. 
820 45 EVENT_ENTRY CEVENT$8_CMD_FLAGS) = 0; 
352 09 
8 § 948 ! Initialize the step-type flags. If the command is STEP or SET STEP, 
8 ¢ sh we set up the Event Entry using the current default stepping modes. 
3 6 951 EVENT_ENTRYCEVENTSL STEP FLAGS = 0; 
827 93¢ TF EVENT ENTRY CEVENTSB~CMD_TYPE) EQLU EVENTSK_TYPE_STEPS 
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! Process adverbs based on the Literal set by the 
syntactic processing. 


SELECTONE -ADVERB_NODE COBGS$B_ADVERB_LITERALJ OF 


Process the /AFTER : <n> adverb. 
CADVERB_AFTER): 
EVENT_ENTRY CEVENTSL_AFTER_COUNT) = 
-ADVERB_NODE COBGSL_ADVERB_VALUEJ; 
Process the /TEMPORARY adverb. 
CADVERB. TEMPORARY): 
EVERT_ENTRY CEVENTSV_ONCE_ONLY] = TRUE; 


Process the /SILENT adverb. 


CADVERB_SILENT): 
BEGIN 
EVENT_ENTRY CEVENTSV_SILENT) = TRUE: 
EVENT_ENTRY CEVENTSV_STEP_NOSILENT) = FALSE; 
EVENT_ENTRY EVENTSV_OVRD_NOSILENT) = TRUE; 


} Process the /NOSILENT adverb. 
CADVERB_NOSILENT): 


N 
EVENT_ENTRY CEVENTSV_SILENT) = FALSE; 

EVENT-ENTRY EVENTSV STE NOSILENT] = TRUE; 
EVENT-ENTRY EVENTSV~OVRD-NOSILENT] = TRUE; 


Process the WHEN adverb. 
CADVERB_WHEN): 
BEGIN 


LOCAL 
LENGTH; 


! Get a WHEN descriptor from permanent memory, and 
ink it into the WHEN queue. 


! G 
+ | 
' 
WHEN_ENTRY = DBGSGET_MEMORY (EVENTSK_WHEN_DESCRIPTOR_SIZE); 
INSQDE (.WHEN_ENTRY, EVENTSWHEN_ QUEUE) ; 


! Point the event entry to the WHEN entry. 


3 
G 
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: 1944 069 4 EVENT_ENTRY CEVENTSL_WHEN] = .WHEN_ENTRY; | 
3 1945 9 4 
; 1208 Bf 4 

: at 4 ore : } Put a <cr> at the end of the WHEN string. 

: 1949 074 4 STRING = .ADVERB_NOD FOBGSL ADVERB_VALUEJ; 
; 1950 075 4 LENGTH = hua TRING) < 6,0>; 
: 1951 O76 4 STRING C.LENGTH+1] = bBG$k_CAR_RETURN; | 
3 1326 077 4 
; 195 078 4 
3 Bee 144 4 ! FILL in the WHEN entry. 
; 1955 80 4 ! 
; 1996 081 4 WHEN_ENTRY CEVENTSL_WHEN. COUNT 21; | 
> 195 O8¢ 4 WHEN-ENTRY CEVENTSL_-WHEN-POINT] = .STRING; | 
; 1958 08 END; 
; 1959 084 

3; 1960 085 

3: 1961 086 ! Process the DO adverb. 

3 13e8 087 ' 

: 196 088 CADVERB_DOJ: 

3 1964 089 4 BEGIN 
; 1965 spay 4 LOCAL 
3 1966 091 4 LENGTH; 
: 1967 6036 4 
3; 1968 2093 4 

3 1969 2094 4 ' Get a DO LIST descriptor from permanent memory, and 

3 1300 2096 : Link it into the DO LIST queue. 

: 1376 097 4 DO_ENTRY = DBGSGET_MEMORY (EVENTSK DO _LIST_DESCRIPTOR_SIZE); 

3 197 2098 4 INSQUE (.DO_ENTRY, EVEN?SDO_LIST_QUEUE); 

: 1974 2099 4 

: 1975 100 4 

3; 1976 101 4 ! Point the event entry to the DO LIST entry. 

3; 1977 10 4 ! 
; 1978 103 4 EVENT_ENTRY CEVENTSL_DOJ = .DO_ENTRY; | 
3; 1979 2104 4 
: 1980 105 4 

3; 1981 106 4 ! Put a <cr> at the end of the DO string. 

3 1336 107 4 ! 

3; 198 108 4 STRING = .ADVERB_NODE COBG$L_ADVERB_VALUE); 

3: 1984 109 4 LENGTH = + LeSTREBG)< 16,0>; 

; 1985 110 4 STRING C.LENGTH+1) = OBG$K_CAR_RETURN; 

3 19 6 4 

: 1988 11 4 ! Fill in the DO entry. 

; 1989 114 4 : 

; 1990 115 4 DO_ENTRY CEVENTSL_DO_LIST_COUNT] = 1; 

+ 1991 116 4 DO-ENTRY CEVENTSL-DO-LIST-POINT?) = . STRING; 

3 1338 11 END; 

; 199 118 

: 1994 11 

; 1995 120 ' Process the /READ, /WRITE, /MODIFY, /EXECUTE, and /RETURN 

: p44 121 ' access adverbs. 

; 199 1 § ! 

; 1998 1 CADVERB_READ ADVERB WRITE TP ual 

> 1999 124 ADVERB~EXECUTE ,ADVERB_RE TURN): 
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Define the command kind to be access. 
EVENT_ENTRY CEVENTSB_CMD_KIND] = EVENTSK_KIND_ACC; 


Define the sub-kind as appropriate. 


EVENT_ENTRY CEVENT$B_SUB_KIND] = 
(SELECTONE | . ADVERB, NODE COBG$B_ADVERB_LITERAL) OF 


EVERTSK_ACC_RTRN; 
COTHERWISEJ: 
: SDBG_ERROR("DBGEVENT\EVENT_SEMANTICS 20'); 


3 
END; 
Process the /EXCEPTION adverb. 
CADVERB_EXCEPTION): 
BEGIN 


EVENT_ENTRY CEVENTSB_CMD_KIND 
EVENT_ENTRY EVENT$B~SUB_KIND 


EVENTSK_KIND_EXC; 
EVENTSK_EXC_EXC; 


TS) 
nu 


' Process the /CALL, /RETURN, /BRANCH, /OPCODE, /INSTRUCTION and 
/LINE instruction-kind adverbs. 


CADVERB_CALL 
AD 


ADVERB- 
ADVERB_OPCO 


" DE 
ADVERB~ INSTRUCTION, 
ADVERB_LINE): 
BEGT 
LOCAL 
LINENO, ' Line number returned from PC_TO_LINE 
DRST, ' Module RST returned from PC_TO CINE 
STATUS, Status returned from PC_T0 [CI 


N 
STMTNO; Statement number returned from PC_TO_LINE 


Define the event kind to be instruction. 


Page 59 
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, EVENT_ENTRY CEVENTSB_CMD.KIND] = EVENTSK_KIND_INS; 


Define the subkind according to the adverb. 


EVENT_ENTRY CEVENTSB_SUB KIND] = 
(SELECTONE -ADVERB_NODE COBGSB_ADVERB_LITERAL) OF 


ADVERB. CALL): 


V 
0 
IF NOT .STATUS 
THEN 
BEGIN 


© 1 4 

H 1 ‘ 4 

5 184 4 

$ } 5 : 

; ? 4 

; 189 

: 190 ; 

3 096 191 VERTSK ANS CALL: 

; 206 136 5 CADVERB_ BRANCH): 

> 2068 19 EVERTSK NS _BRAN; 

3 se 194 CADVERB LIN : 

; 2070 195 EVERTSK ENS LINE: 

; 2071 138 5 CADVERB_OPCODE J: 

; 207 197 5 EVERTSK_INS_USER; 

; 207 198 5 CADVERB_INSTRUCTION): 

3 sore 199 2 EVERTSK_INS_EVRY; 

; 2075 200 COTHERWISE): 

3; 2076 $50) 5 SDBG_ERROR('DBGEVENT\EVENT_SEMANTICS 30"); 
Be BRE om 

Bo Be E | 

: it soe ; Set the Line stepping flag appropriately. 

: 208 2208 4 EVENT_ENTRY CEVENTSV_STEP_LINE) = 

> 2084 209 4 (TEVENT_ENTRY CEVENTS$B_SUB_KIND] EQLU EVENTSK_INS_LINE); 
Be Be 

: Ft $4 2312 ? We're not in the middle of a step over.... 

; 2089 gel4 EVENT_ENTRY CEVENTSV_STEP_BPT] = FALSE; 

: 2091 2216 4 

3; 209 $519 4 ! Initialize the LO and HI PC values by calling PC_TO_LINE 
; 209 $518 4 ! with the current PC. This gives us a PC range for the 

: 2094 219 4 ! Line number containing the current PC. This PC range 

3; 2095 220 4 ' will be used later to determine when a step by Line ends. 
; 2096 221 4 ! If PC_TO_LINE returns FALSE we are not in a Line. In that 
; 2097 $5§ 4 ' case, initialize LO and HI PC to 1 and 0, so we will 

3 soe § ? ? immediately be out of the “'range’’ the next time we check. 
Bp Be RUAUS = 8 

; 108 5 4 IF .EVENT_ENTRY CEVENTSB_SUB_KIND] EQLU EVENTSK_INS_LINE 

> 2104 $e STATUS = DBGSPC_TO_LINE_LOOKUP( 

3; 2105 0 4 . OBGSRONF RARE CDBGS$L_USER_PC), 

: 198 1 4 LINENO, 

3; 210 § & STMTNO 

> 2108 4 EVENT_ENTRYCEVENTSL STEP_LO_PCI, 

> 2109 4 6 EVEN STEPTHI PCJ, 

3; 2110 5 4 

3: 2111 § 4 

: 1g 4 

3; 211 8 5 
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114 EVENT ENTRYCEVENTSLSTEP_LO_PC) © 1 
ng etal EVENTSL_STEP_HI_PC) = 0; 


St 


} Process the /SOURCE adverb. 
CADVERB_ SOURCE): 
BEGIN 


EVENT_ENTRY CEVENTSV_STEP_SOURCE] = TRUE; 
EVENTLENTRY CEVENTSV_OVRD_SOURCE] = TRUE: 


Process the /NOSOURCE adverb. 
CADVERB_NOSOURCE): 
EVENT_ENTRY CEVENTSV_STEP_SOURCE] = FALSE; 


1 a call EVENTS$V_OVRD-SOURCE) = TRUE; 


FUN“ OVOONOUE WW" O0OOnNOul 


} Process the /SYSTEM adverb. 
CADVERB_SYSTEM): 
BEGT 


GIN 
EVENT_ENTRY CEVENTSV_STEP_NOSYSTEM] = FALSE; 
EVENTCENTRY CEVENTSV_OVRD-NOSYSTEM] = 


Process the /NOSYSTEM adverb. 
CADVERB_NOSYSTEM): 

BEGIN 

EVENT_ENTRY CEVENTSV_STEP_NOSYSTEM) = TRUE; 


EVENT EMORY EVENT$V_OVRD_NOSYSTEM] = TRUE; 
} Process the /INTO adverb. 
{ADVERB INTO}: 

EVENT_ENTRY CEVENTSV_STEP_OVER FALSE; 


EVENT-ENTRY CEVENTSV_OVRD_OVER = TRUE; 
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65 , Process the /OVER adverb. 

ef 3 {ADVERB OVER): 

§ 9 EVENT_ENTRY CEVENTSV_STEP_OVER) = TRUE; 
0 9 EVENT-ENTRY CEVENT$V-OVRD-OVER) = TRUE; 
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An invalid adverb Literal = yell ! 


COTHERWISE): 
$DBG_ERROR( 'DBGEVENT\EVENT_SEMANTICS 40°); 


TES; 


} Point to the next adverb in the List. 
ADVERB_NODE = ,ADVERB_NODE COBG$L_ADVERB_LINKJ; 


' Now, based on the command kind (access or instruction), 
} process the noun node List. 


SELECTONE .EVENT_ENTRY CEVENTSB_CMD_KIND] OF 


Access events.... 
CEVENTSK_KIND_ACC): 
paves pera CEVENTSB_CMD_TYPE] NEQU EVENTSK_TYPE_STEPS 
BEGIN 
LOCAL 
SYMID_LIST; ! Pointer to SYMID 
Make sure there's a noun node present. 
if , NOUN MODE EQLA 0 
SDBG_ERROR("DBGEVENT\EVENT_SEMANTICS 50°); 
! Build duplicate event entries, one for each 
address found in the noun node List. 
WHILE TRUE DO 
BEGIN 


Obtain the primary descriptor. 
PRIMARY = .NOUN_NODE [DBG$L_NOUN_ VALUE); 


Obtain the symid List, and lock it. 


roe 
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8 SYMID (.PRIMARY, SYMID_LIST, DUMMY); } 
Cock symid (.SYMfD_LISTY; 


' Save the primary descriptor or making a copy of the primary 
descriptor out of permanent storage. 


DBGSNCOPY_DESC (.PRIMARY, EVENT_ENTRYCEVENTSL PRIMARY], 
DUMMY, TROE); 


! Now, get and save the VMS descriptor. (We do this 
! after saving the Primary since PRIM_TO_VAL sometimes 
} modifies the Primary.) 


DBGSPRIM_TO_VAL (.PRIMARY, DBGS$K_V VALUE DESC, VALUE) ; 
CHSMOVE T12, VALUE COBGSA. VALUE _ TSDESE ° 
EVENT-ENTRY LEVENTSA_VMSDESCJ); 


Next, we determine the address where we gus the 
breakpoint. We pass our Primary into DBGSNGET_ADDRESS. 
For routines and entry points, NGET_ADDRESS takes a 

flag that says to return the “break address'’ instead 

of the start address. For routines, the break address 
is after the routine prolog (or, if there is no prolog, 
it is at routine _start+2). 

( 


VENT_ENTRY CEVENTSV BREAK_ADDRESS] = FALSE; 
FCCEVENT ENTRY EVENTSB-CMD_TYPE) EQL EVENTSK_TYPE_BREAK) OR 
( 


SEVENT-ENTRY EVENTSB_CMD TYPE EQL EVENTSK-TYPE~TRACE)) 
ey EVENTAENTRY CEVENTS$B_SUB_KIND] NEQ EVENTSK_ACC_RTRN) 
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BEGIN 
IF (.PRIMARYCOBG$SB_DHDR_TYPE) EQL DBGSK_PRIMARY_DESC) 


((. PRIMARYCDBG$B_DHDR_KIND] EQL RSTSK_ROUTINE) OR 
(:PRIMARYLDBGSB-DHDR-KIND] EQL RSTSK-ENTRY)) 


END EVENT_ENTRY CEVENTSV_BREAK_ADDRESSJ = TRUE; 


POPOPINIPIPINPINIPIP PoP Ponongnofnonononyfonononony»s 
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mororory 


Get the address where we place the breakpoint. 


iF NOT DBGSNGET_ADDRESS( PRIMARY ADDRESSCO}, ADR_TYP 
.EVENT-ENTRYLEVENTSV_BREAK_ADDRESSJ, .MESSAGE_VECT) 


N 
RETURN STSSK SEVERE; 
EVENT_ENTRY CEVERTSL_ADORESS) = .ADDRESSCO); 
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ye nay still need to adjust the address of the preokpetnt 
by +2 to get past the entry mask of a routine. This 

will be the case if the user set a break on an absolute 
address which happens to be the start of a routine, 
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; 5 $19 4 ! or on data of type ZEM, BPV, or BLV (e.g., if 

; : 411 4 ' the address of a routine is passed as a parameter and 

3 tig 4 ! and a breakpoint is set on that passed-in routine, then 
> 2288 4135 4 1 the Primary describe data of type BPV). These cases 

3 4 ti3 2 are not covered by the above ‘‘break address’’ code. 

; 2291 £18 4 IF NOT .EVENT_ENTRY CEVENTSV_BREAK_ADDRESSJ 

3; 229 417 & THEN 

3; 2e9 418 BEGIN 

: 2294 419 

3; 2295 420 

; 229 421 ! If we can determine from the static address table 

3; 229 4 § ' that this is an entry point, then add two to get 

3 8 : Z ; past the entry mask. 

3 2500 425 IF DBGSIS_IT_ENTRY (.ADDRESS (0J) 

3; 2301 4 $ THEN 

3 30 i é EVENT_ENTRY CEVENTSL_ADDRESS] = .ADDRESSCO] + 2 

3 2304 429 5 ELSE 

; 2305 430 6 BEGIN 

3 $08 $2) 6 

3; 2307 4 § 6 

; 2308 433 6 ! If the data type in the value descriptor says 

3; 2309 434 6 ! that we have an entry mask, then add two to 

; #19 tH ? get past the entry mask. 

3 $18 437 6 IF (.VALUECDBG$B_VALUE_DTYPE] EQL DSCS$K_DTYPE_ZEM) OR 
: 231 438 6 (. VALUECDBG$B-VALUE_DTYPE] EQL DSCS$K_DTYPE_BPV) OR 
: 2313 re i (. VALUECDBGS$B_VALUE_DTYPE] EQL DSCSK_DTYPE_BLV) 
; 218 441 6 EVENT_ENTRY CEVENTSL_ADDRESS] = .ADDRESS(O) + 2; 
3 4 mek 5 ND; 

3 18 4435 4 END; 

3; 2319 444 4 

: 359 445 4 

: $) rr : } Make sure that we can access the value indicated. 

3 358 448 4 DBGSREAD_ACCESS (. EVENT ENTRY CEVENTSL_ADDRESS), 

§ ase 34 ; (DBGSDATA_LENGTH(EVENT_ENTRYLEVENTSA_VMSDESCJ) Aj 
3 3 § 451 & 

3 12g 4 

3 8 $2 4 ' Process the event's address additionally based on the 

3 , $28 ; : access type. 

3 1 $28 ? seLesiee -EVENT_ENTRY CEVENTSB_SUB_KIND] OF 

3 5 $28 4 EVENTSK_ACC_EXEC 

; 459 4 EVENTSK-ACC_RTRNI: 

: 2335 460 BEGIN 

: 461 LOCAL 

3 v8 EVENT_ADDRESS : REF VECTOR C, BYTE); 

; 33 464 EVENT_ADDRESS = .EVENT_ENTRY CEVENTSL_ADDRESS); 

3: 2340 P 2465 IF NOT WRITE_OPCODE (.EVENT_ADDRESS, 

3 2341 P 2466 -EVENT_ADDRESS (0) 
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_— 1, «EVENT ADDRESS); 


Mark the fact We are at /RET .PC, for we want 
to take the RET SSS$_ROPRAND fault starting 
from current PC. Normally, we won't take 

the event if we are at current PC. 


IF_.EVENT_ADDRESS EQL .DBGSRUNFRAMECDBGS$L_USER_PC) 
psEVENTAENTRY CEVENTSV_RET_AT_PC] = TRUE; 


CEVENTSK_ACC_MDFY): 


wd 
o 
wr 


! Process /MODIFY types by building and poving a non- 
qoves ste vase descriptor (i.e. a copy) of the value 
! indicated. 


BEGIN 
LOCAL 
PRIMARY: REF DBGSPRIMARY; 


First, get the value descriptor. 

Before we call PRIM_TO_VAL, however, we check 
whether the Primary represents an aggregate, 

such as an entire array. The scheme of saving 

away value descriptors does not work for aggregates, 
because we currently do not represent arrays 

and records with value descriptors. So, for now 

we signal an error bey ie that we do 

not currently support watchpointing of aggregates. 


BGSNCOPY DESC( EVENT ENTRYCEVENTSL_PRIMARY), 
PRIMARY, DUMMY, FALSE); 


IF .PRIMARYCOBG$V_DHDR_AGGR) 
SIGNAL (DBG$_NOWATAGGR) ; 
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8 
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' e order to keep the code path consistency 
' it is better to turn the volatile value 
descriptor into value descriptor. 


DBGSPRIM_TO_VAL ( PRIMARY . 
DBGSK_V_VALUE_DESC, 


wn 


DBGSPRIM_TO_VAL (VALUE. 
DBGSK 
VALUE 


_WALUE_DESC, 


oO 
- 
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d; 
VALUE CDBGSB_DHOR_TYPE] NEQU DBGSK_VALUE_DESC 
SIGNAL (DBGS_WATCHSIZE) 


If . 
THEN 


SE 
BEGIN 
LO 


CAL 
PAGE_ENTRY : 
PAGE_LIST : 


E 
: V 
PAGE_FOUND; 


REF EVENTSPAGE DESCRIPTOR. 
REF VECTOR C, CONG), 


The user is not permitted to set a watchpoint in 
Pl space (or in system space) 


1 
i 
' 
if EVENT ENTRY CEVENTSL_ADDRESS] GEQA P1_SPACE 


BEGIN 

SIGNAL(DBG$_BADWATCH, 1 
.EVENT_ENTRYLEVENTSL_ADDRESSJ); 

octane STS$K_SEVERE; 


! The user is not permitted to set a watchpoint on 
! a variable bound to either the context registers 
or the user runframe registers. 


if DBGSMAP_TO_REG_ADDR 
(.EVENT_ERTRY CEVENTSL_ADDRESSJ, DUMMY) 


WAAL AIT PUP NIPININININIDY 2 2 OOO Oe ee 


SOONG VE WN O OBNOA VUE WN SO OONOUES WN 


THE 
BEGIN 
SIGNAL (DBG$_NOWATTAR); 
RETURN STS$K_SEVERE; 
END; 
IF (DBGSRUNFRAME CDBGSL_USER_REGS) LEQA 
-EVENT_ENTRY CEVENTSL_ADDRESS)) AND 
(.EVENT-ENTRY CEVENTSL-ADDRESS] LSSA 
. pyUOGSRURF RARE DBGSL_USER_REGS] + 68) 


BEGIN 

SIGNAL(DBG$_BADWATCH, 1 
.EVENT_ENTRYCEVENTSL_ADDRESS)); 

perune STS$K_SEVERE; 


Save the value descriptor by tes a copy of 
the value descriptor out of non-volatile storage. 


Tee al ah ab Ah Ah dh Ab ab db ob db db db ab ob db 4b 4b Ab Ab dh Ab Ab dh Ah ah ah ih hh eh ah eh ah ah ah db dh ah ab ah hh Ah dh sb dh ah ahaha al ase al 
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! 
' 
i 
Obtain the symid List, and lock it. 


DBGSNGET_SYMID (.VALUE, SYMID_LIST, DUMMY); 
DBGSSTA_COCK_SYMID (.SYMID_LIST); 
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Copy the value descriptor. 


DBGSNCOPY_DESC (.VALUE 
EVENT JE ENTRY CEVENTSL_VALDESC), 


! Flag that this event has a value descriptor, and 
point the event entry to it! s value. 


EVENT_ENTRY CEVENTSV_HAS_VAL_DSCR] = TRUE; 


Get the pages associated with this value 


if NOT DBGSNGET_PAGES 
( EVENT_ENTRYCEVENTSL_PRIMARY], 
PAGE_LIST, .MESSAGE_VECT) 
a meat 
SIGNAL (DBG$ BADWATCH 
EV TeENTAYCEVENTSL _ADDRESS)); 
perunn STS$K NSEVER 


! While there are entries in the page list, add a 
new page reference in the page queue. 


dO 
BEGIN 


! Search through the existing entries in the 
page queue for this page. 


PAGE_ENTRY = in -QUEVE CL_QUEUE_FLINK); 
PAGE FOUND = 
WHILE . Vt pee ENTRY NEOA EVENTSPAGE _QUEUE DO 


BEGI 
IF PAGE -ENTRY ch§vents. PAGE ADDRESS) EQLA 
THe -PAGE-L 


A match is found, so bump the refer- 
ence count, flag a find, and exit 
this loop. 


ge NENTRY CEVE 
PAGE _ENTRY 
GE_FOUND = TR 
TYCooP: 


is¥ PAGE _REF COUNT) = 
UE; 


0- 


742 
83251 


VENTSW"PAGE_REF _COUNT) © v3 
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: 2513 638 9 

: 14 6 9 

3; 2515 640 9 ' Not found yet, point to the next one. 
; 18 641 ! 

; 1 org ELSE 

Hy 18 rok PAGE_ENTRY = .PAGE_ENTRY CEVENTSL_PAGE_FLINKI; 
3 0 645 END; 

3 1 0 | 7 

; ¢ 647 7 

3 23 648 7 ! If no match was found, add a new entry to the 
; 2 4 649 f i page queue, and fill it in. 

3 25 651 7 if NOT .PAGE_FOUND 

3; 25 $ $29 7 THEN i 

3; 2528 $2 BEGIN 

3; 2529 654 LOCAL 

3; 2530 655 DORESS VECTOR (2), 

4 é 1 $28 PROTECT; 

3 23 5 658 ADDRESS £0} = ,PAGE_LIST pid: 

3 2> 659 ADDRESS C1) = .PAGE_LIST (1); 

; 2535 P 2660 T SSETPRT (INABR s ADDRESS, 

3; 2536 Pp 1 PROT = PRTS$C_UR, 

3; 2537 P 666 8 PRVPRT = PROTECT 

3; 2538 6635 9 ) 

3; 2539 664 8 THEN 

3; 2540 665 9 BEGIN 

3 2541 6 9 SIGNAL (DBG$_BADWATCH, 1, .PAGE_LIST (1)); 
; 348 667 9 RETURN STS$K-SEVERE; 

3: 254 668 8 END; 

> 2544 P 2669 8 IF NOT $SETPRT (INADR = ADDRESS 

> 2545 P 2670 PROT =  .PROTECT 

3 $208 671 9 

3 2547 672 8 THEN 

3 2548 673 9 BEGIN 

: 2549 674 9 SIGNAL (DBG$_NOWPROT); 

3 229 of? 9 RETURN STS$K~ SEVERE; 

; 234 67 : PAGE ENTRY = DBGSGET_MEMORY (EVENTSK_PAGE_DESCRIPTOR_SIZE); 
3; 255 67 INSQDE (.PAGE_ENTRY, EVENTSPAGE QUEUE); 
3 2554 67 PAGE_ENTRY CEVENTSL_PAGE_ADDRESS) = 

3: 2555 680 ~ PAGE List aR 

3 228 : 1 pase ENTRY EVENTSW_PAGE_REF_COUNT) = 1; 
; 338 683 7 PAGE_LIST = .PAGE_LIST (0); 

3; 255 684 7 END 

3; 2560 685 g WHILE .PAGE_LIST; 

; 2561 6 END; 

3 266 6 4 END; 

3; 256 6 8 4 TES; 

3 2564 6 4 

3 ra $4 6 4 

3 ? 4 ? Point to the next noun node. 

; Be $98 4 NOUN_NODE = .NOUN_NODE COBG$L_NOUN_LINK); 

3; 2569 694 & 
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; 2570 695 4 

3; 2571 696 4 ! If there's more addresses, get an new event descriptor 
: ue 697 4 ! from permanent memory, copy the current one to it, and 
3 t 24 2 } Link it to the working queue; otherwise, exit this loop. 
3; 2575 00 4 IF .NOUN_NODE NEQA 0 

3 8 701 4 THEN 

3; 257 7 ¢ BEGIN 

: 2578 7 

3; 2579 704 

; 2580 705 ! Get another event descriptor, and copy the old 
: 28) re } one into it. 

3 ong 708 EVENT_ENTRY = DBGSGET_MEMORY 

> 2584 709 (EVENTSK_EVENT_DESCRIPTOR_SIZE); 
; 28? 710 SMOVE 

; Hy] 711 «5 (EVENTSK_EVENT_DESCRIPTOR site * 4, 

: 258 re 5 -EVENT_GUEUVE CL_QUEUVE_FLINKI, 

; 2588 713 5 -EVENT-ENTRY 

3; 2589 714 : : 

3; 2590 715 

3; 2591 rig 5 

3 236 at 4 ; Link the new one into the working queue. 

3 2594 719 «5 INSQUE (.EVENT_ENTRY, EVENT_QUEUE); 

3; 2595 720 5 

3 2596 721 : 

3 2597 7 ; ! If the old entry has a WHEN, bump the WHEN's 

3; 2598 as 5 ! reference count. 

3; 2599 724 «5 : 

3 tt} H : ud -EVENT_ENTRY CEVENTSL_WHEN] NEQA 0 

; tt 727 «(5 WHEN_ENTRY CEVENTSL_WHEN_COUNT] = 

; 260 728 «5 ;WHEN_ENTRY CEVENTSL_WHEN_COUNT) + 1; 

3; 2604 729 5 

3; 2605 730 «(5 

3; 2606 731 5 ! If the old entry has a DO LIST, bump the DO LIST's 
3 eit 4 § : reference count. 

3 st ree 5 IF .EVENT_ENTRY CEVENTS$L_DO] NEQA 0 

> 2611 736 DO_ENTRY CEVENTS$L_DO_LIST_COUNT] = 

; ote 7 -DO_ENTRY CEVENTSL_DO-LIST_COUNT) + 1; 

: 261 7 3 

3 2614 7 END 

3; 2615 740 

3 O16 741 & ELSE 

3: 261 742 & EXITLOOP; 

3 ot 4 743 4 

3; 261 744 «4 END 

3; 2620 745 & 

: 2621 74 END; 

: 26 § 74 

3; 26 74 

3 2626 74 ! Instruction events... 

3 2625 30 ‘ 

3 2626 ? CEVENTSK_KIND_INS): 
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3 ° 7 f ¢ SELECT ONE -EVENT_LENTRY CEVENTSB_SUB_KIND) OF 

: 26 § 754 EVENTSK_INS CALL) 

; 2650 755 EVENT_ENTRY VENTSL_OPCODE_LIST] = DBGSOPCODES_CALL; 

; 2631 7 § CEVENTSK_INS_BRANJ: 

3; 26 ¢ 7 EVENT_ENTRY EEVENTSL OPCODE LIST = DBGSOPCODES_BRANCH; 

; 26 7 § CEVENTSK_INS_EvRY): 

: 26 7 EVENT ENTRY CEVENTSL_OPCODE_LISTJ = 0; 

; 6 5 760 CEVENTSK_TNS_USER : 

> 26 76 LOCAL 

3 2638 76 OPCODE_LIST: REF BITVECTOR(512); 

5826 ree 

3 2641 76 ' Allocate space for the opcode List. 

3 ret re 512 bits = 16 Longwords 

; 644 769 OPCODE_LIST = DBGSGET_MEMORY(16); 

: 2646 771 

; rte, 77 ! If this is a STEP or SET STEP command without — /INST=(opcode...) 
3; 2648 77 ' and we get here then the user must have previously 

3 2649 774 ' done SET STEP INST=(opcode-List). In this case we 

3; 2650 775 ! initialize the OPCODE_LIST from the copy of 

: 2651 776 ! the opcode List that We saved away on the SET STEP command. 
3 2658 vr ; Otherwise, we just clear the opcode List. 

> 2654 779 if (.NOUN_NODE EQLA 0) AND 

3; 2655 780 4 ((, VERB_NODE DBG$B_VERB_COMPOSITE] EQL EVENTSK_STEP) OR 
> 2656 781 4 (. VERB-NODECDBGSB_VERB_COMPOSITE) EQL EVENTSK-SET_STEP)) 
1 ce: ace 

: 659 784 4 CHSMOVE (64, DBGSOPCODES_STEP_USER, .OPCODE LIST); 

3; 2660 785 4 CHSMOVE (64, DBGSOPCODES_STEP_USER, DBGSOPCODES_USER); 
Bl eS . 

: Sees re Ta Bagg hte ge ay 

> 2665 790 4 CHSFILL (0. 64. DBGSOPCODES_USER); 

3; 2666 791 END; 

: Seen 98 

: 669 794 ' For eech opcode (found in the noun node(s) value, 

3; 2670 795 ! set the corresponding opcode’s bit in the User 

; of ° opcode bitmap. 

; ors 798 ; WHILE, .NOUN_NODE NEQA 0 DO 

+ 2675 800 4 OPCODE_LIST C.NOUN_NODE CDBG$L_NOUN_VALUE)) = 1; 

: 67% 01 4 DBGSOPTODES_USER (7NOUN NODE BBG$L“NOUN_VALUEJ) = 1; 
3 267 O 4 NOUN_NODE =".NOUN_NODE [CDBG$L_NOUN_CINK] 

3 RR : 

: est 35 : Now point the event entry to the user opcode bitmap. 

; $88 08 EVENT_ENTRY CEVENTSL_OPCODE_LIST) = .OPCODE_LIST; 


Page 70 
. (9) 


11 | 
DBGEVENT 1-50 -1984 00:59: AX-11 Bliss-32 V4.0-742 Page 71. 
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: 2684 09 END; 
ae 
: 26 5 1g CEVENTSK_INS LINE) 
; ety si? EVENT_ENTRY CEVENTSL_OPCODE_LIST] = 0; 
: 2690 15 
: 691 i ! An invalid sub-kind, yell ! 
: 269 18 CoTHERWISE]: 
3 69% a DBG_ERROR('DBGEVENT\EVENT_SEMANTICS 60°); 
: 269 1 TES; 
$88 858 
; $9 ; : : /EXCEPTION kind = do nothing. 
: 2701 B26 CEVENTSK_KIND_EXC): 
: $70 858 " | 
: ee soe) : An invalid kind, yell ! | 
> 2706 2831 COTHERWISE): 
: 107 8 : $DBG_ERROR("DBGEVENT\EVENT_SEMANTICS 70"); | 
: 709 $88 TES; 
: tio At 
3 siig 2638 If this is a STEP or SET STEP command, process the entry now. 
: shia 839 $ if .EVENT_ENTRY CEVENTSB_CMD_TYPE] EQLU EVENTSK_TYPE_STEPS 
3; 2715 2840 ¢ THE 
: 2716 841 BEGIN 
a Bey 
> 2719 2844 ! If this is a SET STEP command, just point to the user-defined STEP 
3 $760 see? definitions. 
; $556 aoe Lf; VERB_NODE CDOBG$B_VERB_COMPOSITE] EQLU EVENTSK_SET_STEP 
> 2724 849 DBGSSET_STP_LVL (USER_DEF_STEP) 
: $382 Bey 
> 2727 ! This is a STEP command. 
3; 2728 ! 
: 2729 854 ELSE 
3; 2730 $22 4 BEGIN 
eB $f 
: 27 He & ! This is a STEP command. Make sure that we're not trying to 
3 f : 4 : step from an exception. 
; 36 61 4 if .DBGS$GB_EXC_BRE_FLAG 
$ 2738 a SIGNAL (DBGS_STEFROEXC) 
3; 2739 64 4 
: 2740 65 4 
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vibes tity 122388- 138% 9 33:49 DEBUG. SRC JDBGEVENT .B32;1 (9), 
; We are not stepping from an exception, so we can indeed step.' 

ELSE | 

BEGIN | 


Make sure that we can start up where we are at. 


SSNS 
Fat et et ee ee ee 
oo Le aP _ 
rororororuroruprororororrron) 


; 66 4 

3 67 4 

3 68 4 

3 4 

3 0 

; 871 

: i 

3 as 1h if “wd PROBER(ZREF(O), ZREF(1), .DBGSRUNFRAMECDBG$L_USER_PCJ) 
; 136 a78 SIGNAL (DBG$_BADSTARTPC, 1, .DBGSRUNFRAMECDBGS$L_USER_PCJ) 

3; e7 : 8768 

3: 2754 444 ! We can indeed start here, so this STEP is okay. 
3; 2755 80 5 ! | 
3 P28 881 5 ELSE 

3: 23 HY 6 BEGIN 
3; 2758 883 6 | 
: 2759 884 6 
3; 2760 885 6 ' Point to STEP override definitions. 
3; 2761 886 6 ! 
; o76¢ 887 6 DBGSSET_STP_LVL (OVERRIDE_STEP); 

3; 276 888 6 

3 sree 889 6 
3 re? 344 ? Update the step count (probably not needed any more). | 
3; 2767 2890 6 DBGSGL_STEP_NUM = .EVENT_ENTRY CEVENTSL_AFTER_COUNT); 
: 2768 58 6 
3 2769 2894 6 
; 2770 Sboe 6 ! Is the user didn't type STEP 0 (a NOP), add this entry 
: soit spo ? to the event queue. 
; gore 2898 6 IF .EVENT_ENTRY CEVENTSL_AFTER_COUNT] GTRU 0 
3: 2774 2899 6 THEN 
3; 2775 2900 7 BEGIN 
: 2776 2901 7 
3: 2777 344 7 
3; 2778 903 7 ! Remove this new entry from the working queue, and | 
: 2779 904 7 ! insert it into HEAD end of the Command Queue (we 

3 ree 't 4 } want steps to show up first). 
; 4 4 307 7 REMQUE (.EVENT_ENTRY, EVENT_ENTRY); 
> 278 908 7 INSQUE (.EVENTTENTRY, EVENTSCMD_QUEUE); 

: oe 909 7 

: 2785 910 7 

3 re 911 7 ! Initialize the queue header within the entry (FLINK1 

3 rer aig } and BLINK1) to be empty.... 

: 2789 914 7 EVENT_ENTRY PEVENT SL ENC _ELINK = ,EVENT_ENTRY; 

: 2790 915 7 EVENT_ENTRY CEVENTSL_EXC_BLINK] = .EVENT_ENTRY; 

: 2791 ais 7 

3; 279 917 7 

: 279 918 7 ' If this is a STEP/RETURN, save the current PC and 

3: 2796 919 7 ' set the saved FP to the current FP (unless we are 

3 2795 +] ? 7 : pe at a RET instruction, in which case we're 

: as ; > 4 going to STEP out one routine level). 


—_ 


| 
| 
| 
| 
| 
| 
| 
| 
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: 2798 923 7 IF .EVENT_ENTRY CEVENTSB_SUB_KIND] EQLU 

: 2799 904 7 EVENTSR_ACC_RTRN Pn 

; Bot 3 2 f THEN GIN 

: 280 9 5 BUILTIN PROBER; 

3 280 908 LOCAL 

+ 2804 909 CALL_FRAME : REF VECTORE LONG ‘ 

: 2805 930 STACR_FRAME : REF BLOCK [,BYTEJ, 

80 3 1 INSTROCTIO : BYTE; 

: 2808 9 ; EVENT_ENTRY FEVENTSL USERS PC) = .DBGSRUNFRAME FDBGSL_USER_PC): 
; 09 934 EVENT-ENTRY EVENTSL USERS_FP = _DBGSRUNE RAME DBGSL_USER-FPJ; 
gi¢ 3 5 8 TF PROBER CREF ( ), SREF (1), ;DBGSRUNF RAME LDBGSL_USER_PCJ) 

; Big 9 : 9 BEGIN 

: 281 938 9 INSTRUCTION = .(. DBGSRUNFRAMECDBGSL_USER_PC])<0,8,0>; 

> 2814 939 10 IF (. INSTRUCTION EQLU %X'04') 

: Sele 3c) 10 THEN EIN 

> 2817 948 10 STACK_FRAME = .DBGSRUNFRAMECDBGSL_USER_FP); 

; 38 943 10 IF PROBER (AREF (0), ZREF (20), .STACK_FRAME) 

: 2820 945 10 EVENT_ENTRYCEVENTSL USERS_FP2_= 

: 2821 946 10 . STACK_FRAMECSFSL_SAVE_FPJ; 

3 sbse 947 9 END; 

; 8 ; 948 8 END; 

; 2835 Soey ; Save more info from FP. in the Event. 

; 2837 2938 8 CALL_FRAME = DBGSGET_MEMORY(S): 

> 2828 2953 8 EVENT _ENTRYCEVENTSL CALL FRAME) = .CALL_FRAME; 

; soe? 2954 8 CHSMOVE (20, .EVENT_ENTRYCEVENTSL_USERS_FPJ,.CALL_FRAME); 
ey o 

> 283 957 7 

3 2838 Bee 4 This was a STEP command - stop taking commands. 

; Shas 960 7 DBGSGB_TAKE_CMD = FALSE; 

: 28 961 6 END; 

3; 283 962 6 

3; 2838 963 5 END; 

3; 2839 964 5 

: 2840 965 4 END; 

HG BBS e 

ce | 

: Bez 970 Setup the stepping flags. 

; Be 97 DBGS$GB_STP_PTR CEVENTSB_STEPPING KIND] : 

; 2848 97 “ENTRY CEVENTSB_SUB_KIND); 

: 849 974 DBGSGB_STP~PTR CEVENTSV_STEPPING LINE) = 

3 2850 975 -EVENT_ENTRY gveursy STEP_LINE); 

+ 2851 97 DBG$GB_STP~PTR CEVENTSV_STEPPING over] = 

: 52g 97 -EVENT_ENTRY CEVENTSV_STEP OVER); 

> 285 97 DBG$GB_STP~PTR CEVENTSV_ STEPPING SOURCE] 2 

3 2854 97 -EVENT ENTRY CEVENTSV_STEP_SOURCE); 
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\ 14-Sep- DEBUG. SRC JDBGEVENT .832; 1 
3 5 980 DBGSGB_STP_PTR CEVENTSV_STEPPING_NOSYSTEM) = 

; H 8 981 sEVENT_ENTRY LEVENTSY STEP NOSTS TERI. 

; 28 9 : DBG$GB_STP-PTR CEVENT $v STEPPING NOSILENT) = 

3 4 8 g ? -EVENT_ENTRY CEVENTSV_STEP_NOSILENTJ; 

; 860 985 

; 2861 9 ' Save away the opcode List we have built. We get here on 

; b6¢ : : SET STEP INST= Ropcode-List) ° 

; He 989 IF .VERB_NODECDBGSB_VERB_COMPOSITE] EQL EVENTS$S*_SET_STEP 

; 2-5 990 THEN 

; 508 991 4 BEGIN 

3; 286 992 4 IF .EVENT_ENTRYCEVENTSB_SUB_KIND] EQL EVENTSK_INS_USER 

; 2868 993 4 THEN 

3 9 994 5 BEGIN 

; 2870 995 CHSMOVE (64, DBGSOPCODES_USER, DBGSOPCODE \_STEP_USER); 

; tal 44 1? la ll CEVENTSL-STEPPING_OP_LIS 3 DBGSOPCODES_STEP_USER; 
; 287 998 

3: 2874 999 4 ELSE 

; 2875 000 4 DBGSGB_STP_PTR CEVENTSL_STEPPING_OP_LISTJ = 0; 

; 2876 001 END; 

: 2877 00 END 

; 2878 00 

3; 2879 004 

; 2880 005 ! This is not e STEP or SET STEP command, so it must be SET BREAK, SET 
: 2881 00 ! TRACE, or SET WATCH. 

3; 288 00 ! 

:; 288 008 ELSE 

3; 2884 009 BEGIN 

ae an 

3; 2887 a518 ! Now that we've built a working List of event entries, add them to 
3 Ht Biz ; the Command Queue, deleting existing entries that match new ones. 
; $890 015 ' For each new event entry, check the existing entries in the 

; 2891 oi§ ! Command queue for any entries that match (command types, and 

3 o3¢ bis , addresses if the command type is an access type). 

3 $96 O55 So, while there are (still) entries on the working queue.... 

3 896 021 WHILE .EVENT_QUEUE CL_QUEUE_FLINK] NEQA EVENT_QUEUE DO 

: 289 0 § 4 BEGIN 

3; 2898 0 4 

3; 2899 024 4 

3; 2900 025 4 ! Point EVENT_ENTRY to the first new event entry on the 

; 4 ; $ ? } working queue. 

3; 290 028 4 EVENT_ENTRY = .EVENT_QUEUVE CL_QUEVE_FLINK]; 

3; 2904 029 4 

3; 2905 030 4 

: a4 1 ? Point to the first and next existing entries in the Command Queue. 
3; 2908 4 5 4 QUEVE_ENTRY = .EVENTSCMD QUEUE CL_QUEUE_FLINK]; 

3 st : ? NEXTQ-ENTRY = .QUEUVE_ENTRY CEVENTSL_CMD_FLINK); 

: 2911 036 4 
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; 4 O3f ‘ | For each existing entry... 

3: 29146 f 4 WHILE ,QUEVUE_ENTRY NEQA EVENTSCMD_QUEUVE DO 

; 2915 40 BEGIN 

; 318 4) 

; 291 rk: 

3 at 04 ! Ignore any ‘deleted’ entries that haven't actually been 

: ah Bie removed. 

; 2921 peg if NOT -QUEVE_ENTRY CEVENTSV_DELETEDJ 

; 29 ¢ 04 THE 

3 « Bee 6 BEGIN 

3 2924 49 6 

: 2925 050 6 

; 29 $ 051 6 ! Compare the command kind of this existing entry and the 
3; 29 p2¢ 6 i new one. 

3; 2928 053 6 i 

3; 2929 054 6 IF .EVENT_ENTRY CEVENTSB_CMD_KIND] EQLU 

; 2930 055 6 QUEVE-ENTRY CEVENT$B_CMD_KINDJ 

; 2931 056 § N 

3 336 057 BEGIN 

3 @ 058 7 

3 4 059 7 

: 33, Bey 4 The command kinds match. Select on the kind. 

3 2937 yt 7 SELECTONE .EVENT_ENTRY CEVENTSB_CMD_KIND) OF 

3: 2938 063 7 SET 

3: 2939 064 7 

3; 2940 065 7 

: 2941 066 7 ' The command kind is eccoas (/READ, /WRITE, 

: ote 067 7 ' /MODIFY, /EXECUTE, or /RETURN). We now have t 

3: 294 3068 7 ' compare the entries to determine if the ontsting 
3 29446 069 7 ! one must be deleted. 

3: 2945 070 7 ! 

3 2946 071 7 CEVENTSK_KIND_ACC): 

3 2947 Ore 8 BEG 

3 2948 07 : LOCAL CODE_1,CODE_2; 

3 2949 074 

3: 2950 075 ! If either of the entries is /EXECUTE or 
3; 2951 B76 i /RETURN, we'LL compare the arte addresses, 
: 926 07 i otherwise compare the two VM dgacriptors. 
3; 295 078 i and delete the exisiting entry if they'r 

3 See 444 the same. 

3 2956 a8 CODE_1 = .EVENT_ENTRY FEVENTSB_SUB_K IND]; 

3: 2957 0 ; CODE 2 = peueus eniay EVENTS8_SUB_KINDJ; 

3; 2958 83 1 IF (TF (.CODE_1~EQLU EVENTSK_ACC_EREC) 

3 2959 84 1 OR (.CODE_1 EQLU EVENTSK_ACC_RTRN) 

3 0 085 10 OR (CODE § EQLU EVENTSK_ACC_EXEC) 

3 33) 0 19 aaa EQLU EVENTSK_ACC_RTRN) 

: 968 o 8 9 .EVENT_ENTRY FEVENTSL ADDRESS} EQLA 
3 Bee +4 4 -QUEVE-ENTRY CEVENTSL_ADDRESS 

; 966 091 9 COMPARE _VMSDESC(EVENT_ENTRY EVENTS A -WMSDESC) 
; 307 09¢ 3 QUEUE “ENTRY CEVENTSA-VMSDESCJ5 


11 
DaGeysat 1ESeprt9Bs (0:80:19 YARGID SLissa82 v4. 05t42, race It 


5 988 94 THEN 

; 2970 95 QUEVE_ENTRY CEVENTSV_DELETED] = TRUE; 

BR on ‘ 

: 297 98 7 

3: 2974 $99 7 : The command kind is instruction. Compare the two 

; 2975 139 7 i entries’ subkind, and delete the existing entry 

3 378 : 1 4 if they're the same. 

: 2978 108 7 CeveNtse _KIND_ INS): 

3; 2979 106 7 E~ .EVERT ENTRY CEVENTS$B8_SUB_KIND] 

3 2 132 4 FROn BYENTSR, INS_CALL TO EVENTSK_INS_USER OF 

: 298 109 7 EVENTSK_INS_CALL TO_EVENTSK_INS_LINE | 
: 298 198 7 IF .EVENT_ENTRY CEVENTS$8_SUB_KIND *eoLU 
3 oRe 1 4 QUEUE. ENTRY CEVENTSB_SUB_KINDJ 

; 986 1] t QUEUE ENTRY CEVENTSV_DELETED) = 

; 2988 118 7 CEVENTSK_ INs EVRY TO EVENTS$K_INS_USER): 

3 4 24 Ay3 ° IF ce QUEOE ENT eure rev EVENTSE_ SUB_KIND] EQLU | 
S | 
: 2991 116 ( = QUEUE ENTRY LEVENTSB_SUB_KINDJ EQLU | 
3 938 BE 4 we ENTSR_INS_USER) | 
: 2994 119 7 “oueue ENTRY CEVENTSV_DELETED) = 

3 2995 120 7 TRUE; 

Be NBT _ 
: 2998 123 7 

3; 2999 1246 7 ' The access type is exception, so delete the 

; Bot ! 5 4 existing entry. 

; 00¢ 159 7 CEVENTSK_KIND_EXC): 

; O 133 4 QUEUE _ENTRY CEVENTSV_DELETED) = TRUE; 

: 3005 130 7 

8 BO : 1 } The command kind is invalid - yell ! 

; 3008 1 5 ? COTHERWISE): 

3 S14 \ : 4 $DBG_ERROR(*DBGEVENT\EVENT_SEMANTICS 80'); 

: 3011 136 7 TES; 

Be GY 0: 

> 3014 1 3 ; 

3 Bia 129 $ END; 

: th 148 

; at 167 Point to the next Command Queue entries. 

: 3020 145 QUEUE LENTRY = .NEXTQ_ENT 

: 9 1 146 NEXTO-ENTRY = .QUEUE— “ENTRY * CEVENTSL _CMD_FLINK); 

3058 105 ms 

; 6 4 129 4 

3; 3025 150 4 ! Remove this new entry from the working queue, and insert 


H 11 
DBGEVENT 16-Sep-1984 00:59: AX-11 Bliss-32 V 
vives ergee~t GBs $9:73:k8 = HONE Ski gsaze y 
} it into tail end of the Command Queue. 


REMQUE (.EVENT_ENTRY, EVENT_ENTRY); 
INSQUE (.EVENTLENTRY, .EVENTSCMD_QUEVE CL_QUEUE_BLINKJ); 


4.0-742 Page 77. 
NT.832;1 os (9) | 


! Initialize the queue header within the entry (FLINK1 and BLINK1) 
' to be empty. 


! 
EVENT_ENTRY EVENTSL_EXC_FLINK] = .EVENT_ENTRY; 
EVENT ENTRY EVENTSL-EXC-BLINK] = .EVENT-ENTRY; 


END; 


ENTRY = EVENT QUEVECL QUEUE FLINK); 


h 
N 
GVENT ENTRY NEQU EVENT_QUEUE DO 
A 


ALL'’s well that ends well. 
RETURN STSS$K_SUCCESS; 


HAAN AGAA I 

SOONAOVESWN OO ONA VE WN" OOODNAU EWN OOONS 
a a ad a ad od ot 
69.69 69 09 09 09 SI NINN NN NNN PPA AAA AAA AMI 


MEUM 9 OONAUE WN OOO NOUS WN OO OONOUNS win 


=PININININININ WWII IWNIAIIININININININWWA ES BEEP LEE 


Www 


END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 

56 45 2f 54 4 45 56 45 47 {| 44 1B QOOC1 P.ABL: .ASCII <27>\DBGEVENT\<92>\EVENT_SEMANTICS 10\ : 
1 20 53 43 49 54 4E 41 40 45 53 SF 00000 ; 
g 45 2 54 46 45 56 45 47 42 44 18 QOODD P.ABM: .ASCII <27>\DBGEVENT\<92>\EVENT_SEMANTICS 20\ ; 
29 2 43 49 54 of 41 4D 45 53 5F BOE S : 

g 4 ¢ 54 4 45 56 45 47 42 44 18 F9 P.ABN: .ASCII <27>\DBGEVENT\<92>\EVENT_SEMANTICS 30\ 3 
20 2 43 49 54 4E€ 41 4D 45 53° SF 10: : 

6 4 , 54 46 45 56 45 47 42 44 18 115 P.ABO: .ASCII <27>\DBGEVENT\<92>\EVENT_SEMANTICS 40\ : 
4 2 43 49 54 oF 41 4D 45 53 5F \¢ : 
g 4 f 54 46 45 56 45 47 42 44 18 131 P.ABP: .ASCII <27>\DBGEVENT\<92>\EVENT_SEMANTICS 50\ : 
2 43 49 54 4E 41 4D 45 53° SF 140 ; 

: 3 f 23 Z $2 72 $3 ; ? $3 18 130 P.ABQ: .ASCII <27>\DBGEVENT\<92>\EVENT_SEMANTICS 60\ : 
§ i3 f 23 2 rH i? o3 2 te $3 19 185 P.ABR: .ASCII <27>\DBGEVENT\<92>\EVENT_SEMANTICS 70\ 3 
g ‘3 f 54 4E 45 $6 45 4 $e his 1h 185 P.ABS: .ASCII <27>\DBGEVENT\<92>\EVENT_SEMANTICS 80\ ; 
20 435 49 54 4E 41 40 45 53 SF 194 ; 


"1 | 

DBGEVENT 1h-Sep-1986 00:59: AX-11 Bliss-32 v4.0-742 Page 78. 
vive) 1ezgeb= 1882 93:78:89 HORGUS Bae ssade vent asses ae 5) 
.EXTRN SYSS$SETPRT | 

LPSECT DBGSCODE,NOWRT, SHR, PIC,0 | 


OFFC 00000 ENTRY DGSEVENT SEMANTICS, Save R2,R3,R4,R5,R6,- ; 1840) 
SE 4 AE 9E 9002 MOVAB =76(SP), ; | 
3c AE _ 0 MOVAB EVENT_QUEUE, EVENT_QUEUE + 1894 
40 AE ¢ AF 9 0 0 OVAB EVENT-QUEUE, EVENT-QUEUE+4 + 1895 
10 DD 0001 PUSHL #16 + 1902 
000000006 90 Q1 FB 1 CALLS #1, DBGSGET_MEMORY : 
é 0 p 1 MOVL RO, EVENT ENTRY : 
3c OA 6 16 INSGUE (EVENT ENTRY), EVENT_QUEUE + 1903 
08 A6 6 D 00 MOVL EVENT_ENTRY, 8(EVENT~ENTRY) + 1904 
oc OA 6 D 024 MOVL EVENT ENTRY, 12(EVENT_ENTRY) : 1905 
5 04 AC 00 00028 MOVL VER RODE. R2 + 1910 
5 01 A2 9A 0002C MOVZBL 1(R2), R : 
01 50 91 000 CMPB sO, wi + 1913 
05 12 000 BNEQ =-'1$ : 
146 Ab 94 000 CLRB 20(EVENT_ENTRY) + 1914 
4C 11 00038 BRB 6$ : 
03 50 91 0003A 1S: CMPBséRO, #3 + 1916 
08 if 003 BNEQ 2$ F 
16 Ab 0200 a B 000 F MOVW #512, 20(EVENT_ENTRY) + 1918 
F 11 00045 BRB 6$ + 1910 
OE 50 91 00047 28: CMPBsaRO, «#14 + 1922 
06 fA 0004A BNEQ 3$ ; 
16 Ab 01 90 0004¢ MOVB #1, 20(EVENT_ENTRY) + 1923 
34 11 90050 BRB 6$ ; 
1 50 91 0052 3$: CMPB Ss RO, «#17 : 1925 
OA if 005 BNEQ 4$ : 
16 Ab ’ 0057 MOVW 3s #2, 20 (EVENT ENTRY) : 1927 
16 Ab 02 90 00058 MOVB #2, 22(EVENT-ENTRY) : 1929 
: 11 0005F BRB 6 : 
0B 0 91 00061 4$: CMPB- ss RO, #11 + 1932 
08 1F 00064 BLSSU 5$ : 
0c 50 91 00066 CMPBsaRO, #12 : 
06 1A 00069 BGTRU 5$ : 
16 Ab 03 90 00068 MOVB #3, 20(EVENT_ENTRY) + 1934 
13 11 0006 BRB. 6S : | 
00000000' EF 9F 00071 S$: PUSHAB P.ABL : 1937 
1 DD 0077 PUSHL #1 : 
00028362 8F DD 00079 PUSHL #164706 ; | 
000000006 00 03 Fe 0 7F CALLS a3 LIB$S1GNAL : | 
17 Ab 9 68: CLRB ; (EVENT_ENTRY) : 1945 | 
50 18 Ag 9E MOVAB 24(EVENT“ENTRY), RO : 1951 
60 04 CLRL —- (ROD ; | 
03 14 Ag 91 F CPB gOCEVENT ENTRY), #3 + 1952 | 
51 000000906 30 06 3 MOVL §§ DBGS$GB_STP_PTR, R1 : 1955 | 
6 01 1 1 al F 9 INSV  1(R1),7#1,7#1, (RO) ; 
5 61 1 9 EF OOOA EXTZV #9, at. (R1), R3 > 1956 | 
60 01 3 3 FO OOOA INSV R3. #3. #1, (RO) : 
61 1 A EF OOOAC Extzv. #16, af, (A1), R3 > 1958 | 
60 01 5 3 FO 00081 INSV RS #5, ai, (RO) : 
60 10 8a 0008 BicB2 sw 6. (RO) : 1959 | 
53 61 1 OB EF B EXTZV #11, #1, (RI), R3 : 1961 | 


11 
DBGEVENT 1b-Se 1984 00:59: AX-11 Bliss-32 V4.0-742 
vOes000 14-Sep-19 4 } teis3 DEBUG. SRC IDBGEVENT .B325 1 


$9 01 7 3 FO 0008 INSV R3, #7, #1, (RO) 
61 1 EF 000C EXTZV He, wi, (R1), R3 
60 1 9 FO cB Insv RB. #9, wi, (RO) 
60 02BA 8F AA OOOCF 7$: BICwW2 4698 (RO) 
10 Ab 1 £0 D4 8S: MOVO #1, 28(EVENT_ENTRY) 
4 A 08 CLRQ 36 VENT_ENTRY) 
SA 8 Ae D dB MOVL (R2), NOUN_NODE 
52 4 Ae D DF MOVL  4(R2), ADVERB_NODE 
0 6 E3 9$ BNEQ =: 10$ 
021 E BRW 51$ 
6 0 £8 10$ TSTB  (ADVERB_NODE) 
1 EA BNEQ «11 
1 Ab 04 A2 D OOEC MOVL 4 (ADVERB_NODE), 28(EVENT_ENTRY) 
5D 11 OO0F1 BRB 16$ 
01 62 91 OOOF3 118 CMPB = (ADVERB_NODE), #1 
6 if O0F6 BNEQ 12$ 
17 6 4 88 OO0F BISB2 #4, 23(EVENT_ENTRY) 
; 11 OO0FC BRB 16$ 
02 62 91 OOOFE 128 CMPB © (ADVERB_NODE), #2 
OA if 0101 BNEQ 13$ 
17 Ab O1 : 00103 BISB2 #1, 3 (EVENT ENTRY) 
19 Ab 2 BA 00107 BICB2 #2, 25(EVENT ENTRY) 
0D 11 00108 BRB 14$ 
03 62 91 0010D 13$ CMPB = (ADVERB_NODE), #3 
OE 12 00110 BNEQ 15$ 
17 Ab 01 BA 00112 BICB2 #1, 23(EVENT_ENTRY) 
19 6 02 88 00116 BISB2 #2. 25(EVENT~ENTRY) 
19 6 01 88 OO11A 14$: BISB “, 5 (EVENT-ENTRY) 
04 85 91 001 9 15$:  CMPB = (ADVERB_NODE), #4 
2D 12 901 BNEQ 17$ 
04 0D 00125 PUSHL #4 
000000006 90 gi FB or 7 CALLS #1, DBGSGET_MEMORY 
0 pO 0012E MOVL RO, WHEN ENTRY 
00000000" EF He 4 0131 INSQUE (WHEN_ENTRY), EVENTSWHEN QUEUE 
20 As 58 DO 00138 MOVL WHEN ENTRY, $2(EVENT_ENTRY) 
5 04 Ag 0 oi C MOVL 4 (ADVERB_NODE), STRING 
5 63 3C 0014 MOVZWL (STRING), LENGTH 
01 A04 0D 90 0014 MOVB #13, 1(LENGTH)CSTRING 
08 AB 1 DO 0014 MOVL 1 N_EN 
oc AB 3 DO O14 MOVL STRING, 12TWHEN_ENTRY) 
0 11 001 168: BRB 1 
05 2 9100152 17$:  CMPB = (ADVERB_NODE), #5 
D 12 001 BNEQ 19$ 
4 DD 00157 PUSHL #4 
000000006 1 FB 159 CALLS #1, DBGSGET_MEMORY 
0 p 160 MOVL RO EN 
00000000' €éF 69 16 INSGUE (DO ENTRY), EVENTSDO_LIST_QUEUE 
24 «OA 9 DO 0016A MOVL  DO_ENTRY, S6(EVENT ENTRY) 
3 04 Ag 1 MOVL  § 4(ADVERB/NODE), STRING 
0 1 MOVZWL (STRING) LENGTH 
1 A04 D 17 MOVB #13, 1(LENGTH)CSTRING) 
8 Ad 1 DO OO17A MOVL #1, 8(D0 BNTRY 
C Ag 3 i 17 MOVL TRING, T2(DO_ENTRY) 
64 1 188 BRB 
06 62 91 00184 19$ CMPB = (ADVERB_NODE), #6 
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DBGEVENT 16-Sep-1 :59: AX-11 Bliss-32 V4.0-742 
Miva 0 14- Sep 71382 9 33:19 DEBUG. SRC IDBGEVENT B32: 1 
54 1F 00187 BLSSU _26$ 
OA 62 91 00189 CMPB © (ADVERB_NODE), #10 
4F 1A 0018C BGTRU 36s 
15 Ab 94 001 CLRB 1 (EVENT_ENTRY) 
06 § 91 001 f CMPB = (ADVERB_RODE), #6 
a a 
11 0198 BRB 25$ 
07 63 91 O019A 20$:  CMPB = (ADVERB_NODE), #7 
fs 0190 BNEQ 21$ 
. i ae 
08 é3 91 oie 21$:  CMPB = (ADVERB_NODE), #8 
if 1A7 BNEQ  22$ 
: i a 
09 62 71 OIAE 22$ CPB CADVERB_NODE) "9 
Z 95 96 Ooigs Rove BB) no 
OA 62 1 O188 23$ cMPB CADVERB_NODE) #10 
50 04 6 0180 MOVL 4, RO 
15 11 001C0 BRB 25$ 
00000000' EF 9F O01¢e 24$ PUSHAB P 
o1 DD 001C¢ PUSHL 
000000006 00 ee 58 ee B160 CALLS a, 
16 Ab 30 90 sie 25$: HOVE : see ENTRY) 
0B 63 1 9100 26$: CMPB + a _NODE), #11 
15 A6 OFO2 8F § pies MOVW $83c2, 21(EVENT_ENTRY) 
0109 31 O1E8 27$:  BRW 50$ 
OA 62 91 OiEB 28$: CPB {ADVERB_NODE) , #10 
12 62 91 a CHP {ADVERB_NODE) . #18 
0096 31 OO1F 298: BRW 40$ 
16 e3 31 oo1F8 O$: CMPB  (ADVERB_NODE), #22 
FS 1A OO1FB BGTRU 29$ 
15 Ab 01 90 O1FD 31$:  MOVB #1, 21(EVENT_ENTRY) 
12 es 1 01 cHPB (AbVE RB_NODEY, #18 
50 " 46 MOVL i RO 
11 BRB 37§ 
13 63 91 32$ CMPB © (ADVERB_NODE), #19 
1 0 BNEQ  33$ 
™ oe oP 0051 arse 5pg 
14 é 91 00215 338: CM (ADVERB_NODE), #20 
1 1 BNEQ 4$ 
50 ; p 1A ROVL #7, RO 
16 é 91 OOO1F 348 CMPB {ADVERB_NODE) #22 
iF 32 BNEQ 3 
50 9 D MOVL #9, RO 


DBGEVENT 1 
se : 
s BYR 
¢ See 
50 4 p 
00000000' : +4 
00028362 F 0D 
000000006 00 3 fe 6 
16 =A6 8 4 rs 
07 16 626A $1 ry 
i 8 Se 
18 A6 01 01 F 6 
Ped BS 
6E D4 0026 
7 0 8 Hee 
5E DD 0026A 
3 A6 9F 0026C 
4 AG 9F 00 of 
9 AE 9F 00 g 
1 AE 9F 0027 
000000006 00 bd 00278 
000000006 9 98 fe 5 3 
ge PEE 
« BBE 
ue 6A he 
0D 62 91 00299 
QA 12 0029 
18 A6 20 8A 00 
18 A6 10 88 OO2A 
4C 11 QO2A 
; $1 
18 A6 80 at $8 aD 
OA 11 8 
’ $l Se 
8 A6 6° F 89 
1 Aé 4 : 3 
10 # C 
2 002C 
18 A6 sa ee 
11 2 91 
A 1 0) 
is A6 8 i ) 
1 Aé 4 Dd 
5 dD 
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38$: 


39$: 


40$: 


41$: 
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44S: 


45$: 


468: 


47$: 


48%: 


DEBUG DBGEVENT .832;1 


37$ 
ie tat #21 


#8, RO 
37$ 
on 
164706 
he ite tra: 

, ec(EVENT_ENTRY) 


Seven exe, #7 


a 
’ 
# 
R 
R 


#1, 24(EVENT_ENTRY) 
VENT_ENTRY) 


R 
RO 
a4 
ST 
MODRST 

ge (EVENT.ENTRY?, #7 

i 

ST 

LINENO 

DBGSRUNF RAME +64 

#6, DBGSPC_TO_LINE_LOOKUP 
status 50 

#1, S2¢EVENT_ENTRY) 
(ADVERB_NODE), #12 

#3$° 24 (EVENT_ENTRY) 
CADVERB_NODE) , #13 

#32, 24(EVENT_ENTRY) 

#16, 26CEVENT-ENTRY) 
ADVERB_NODE), #14 

# 8, 24(EVENT_ENTRY) 
eee #15 


#128, 24(EVENT_ENTRY) 
#64, 24(EVENT_ENTRY) 


(ADVERB_NODE), #16 
#8, 24(EVENT_ENTRY) 
CADVERB_NODE) , #17 
49 

Ae Be CEVENT ENTRY) 
¥ 

50$ 


° este 
ATUS 
DRS 

$ 


(EVENT_ENTRY) 
(EVENT ENTRY) 
MTNO 


PLATO 


4(EVENT_ENTRY) 
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DBGEVENT 16-Sep-1984 00:59: AX-11 Bliss-32 V4.0-742 Page 82. 
ted 1o-8e8=138e 90:32:48 DEBUG. SRCIDBGEVENT B32 1 . Rd 


00000000" EF 9F OO2DF 49$:  PUSHAB P.ABO : 2302. 
1 DD E3 PUSHL #1 : | 
00028362 8F DD O0cE PUSHL 164706 : 
000000006 Q F ED CALLS #3, LIBSSIGNAL : 
08 roe Fa 50S: HOVL {ADVERB_NODE), ADVERB_NODE > 2309 
50 15 A6 9A OOCFB 518 MOVZBL 21(EVENT_ENTRY), RO : 9° | 
: a 0 FF BEQL 2$ : 2322. 
03 1 1 BRwW 4$ : 
03 14 1 0 52$:  CMPB Q(EVENT ENTRY), #3 + 2324) 
0 1 a BNEQ $ : 
03 A BRW 101$ : 
A D3 D 53$ TSTL | NOUN_NODE ; 2334 | 
15 1 F BNEG 54$ : 
00000000" EF 9F 00311 PUSHAB P.ABP : 2336) 
1 0D 00317 PUSHL #i : | 
00028362 8F DD 00319 PUSHL #164706 : 
000000006 00 3 FB OO31F CALLS #3, LIBSSIGNAL : 
58 6A 0326 54$:  MOVL  (NOUN_NODE), PRIMARY + 2348) 
20 AE 9F 00329 PUSHAB DUMMY ; 2353, 
20 AE 9F 0032C PUSHAB SYMID_LIST : 
5B DD 0032F PUSHL Ry : | 
000000006 00 03 FB 00331 CALLS #3, DBGSNGET_SYMID ; 
1C AE DD 00338 PUSHL  SYMID_LIST 3 2354) 
000000006 00 01 FB 0033 CALLS #1, DBGSSTA_LOCK_SYMID : | 
2 i 2560 
34 A6 9F 00347 PUSHAB ROCEVENT_ENTRY) : | 
5B DD 0034A PUSHL PRIMARY : 
000000006 00 04 FB 00 4¢ CALLS #4, DBGSNCOPY_DESC ; | 
7E a8 ar a § 33 ROVIBE met (SP) : 
: DD 0035A PUSHL P Y ; 
000000006 00 03 FB 0035 CALLS #3, DBGSPRIM_TO_VAL ; 
? 18 AE OD 6 MOVL. VA : 3369 
34 AG 16 =A? 0c 6 MOV #12, 20(R7), S2(EVENT_ENTRY) : 2370 
19 Ab 20 8A 00 6p BICB2 «#3 (EVENT ENTRY) : 3381, 
16 AG 93 00871 TST (EVENT_ENTRY) ; 2382 
06 13 00374 BEQL ie 
01 16 A 91 0 76 a] (EVENT_ENTRY), #1 : 2383. 
1D 1 7A BNEQ : 
04 16 A6& 91 0037C 558: CMPB (EVENT_ENTRY), #4 : 2385 | 
17 13 00 BEQL F 
79 «BF 02 Ap 91 ¢ CMPB (PRIMARY), #121 : 2388 
10 1 BNEQ ; 
02 07 +aAB QO 9 CMPB (PRIMARY), #2 : 2390 
06 1 BEQL : 
08 07 AB 9 F cHPB (PRIMARY), #8 : 2391. 
19 Ab % as 568: B1SB2 252 25 (EVENT_ENTRY) ; 3395 
08 AC DD $: PUSH MM SSAGE_ gc! : 2400 | 
7E 19 A6 01 0S EF 0039 EXT2v #5, @ (EVENT_ENTRY), (SP) ; | 
16 AE OF A PUSH Tye : 2399 
40 AE 9F OO3A PUSHAB ADDRESS ; 
000000006 3 pe AA CALLS , GSNGET ADDRESS : 
$8 EB BI BLBS 4% at ¥ ; 
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DBGEVENT 16-Sep-1984 00:59:1 AX-11 Bliss-32 V4.0-742 
vita tty aR aati 90: ig DEBUG. SRC IDBGEVENT 83271 
O1F1 31 B4 BRW 78$ 
5 C Ab B7 58$:  MOVAR 44 (EVENT_ENTRY), R2 
6 h « 6 BB MOVL ADDRESS (R2) 
24 19 A - : £0 BF BBS 3. 22 (EVENT_ENTRYD, 60$ 
000000006 0 o} Fe i] CALLS #1, BGSIS_IT_ENTRY 
1 Q f CE BLES Soa 
1 16 =A | D1 CMPB (R7), #23 
oc 1 D3 BEQL $ 
20 16 A? 91 0030 CMPB (R7), #32 
06 13 00308 BEQL $ 
21 16 A? 91 00300 CMPB (R7), #33 
5 12 00361 BNEQ $ 
62 34 AE 2 1 ES 59$ ADDL3 #2, ADDRESS, (R2) 
34 AG OOF 0 EB 60$ PUSHAB SO(EVENT_ENTRY) 
000000006 90 01 F E CALLS #1, DBGSBATA_LENGTH 
0 07 6 O3F ADDL 77 R 
7E 50 FD sO O3F ASHL #-$, RO, =(SP) 
62 DD OO3FA PUSHL (R25 
000000006 00 02 FB 00 FC CALLS #2, DBGSREAD_ACCESS 
50 16 A6 9A 0040 MOVZBL 2 CEVENT_ENTRYD, RO 
03 50 91 00407 CMPB RO, # 
29 1F 004A BLSSu 618 
04 0 91 0040C PB séaRO, &4 
24 1A OO40F BGTRU 61$ 
53 ie DO 00411 MOVL (R2), EVENT_ADDRESS 
10 AE 63 9A 00414 MOVZBL (EVENT ADDRESS), oP 
01 DD 00418 PUSHL @# 
14 Ae OF OO41A PUSHAB OP 
53 DD 00410 PUSHL EVENT_ADDRESS 
000000006 00 03 Fe 0041F CALLS #3, DBGSWRITE_MEM 
72 20 EB 00426 BLBS 0 
DD 00429 PUSHL EVENT_ADDRESS 
01 DD 00428 PUSHL #1 
00028220 af DD 04 PUSHL #164384 
C 11 004 BRB 67$ 
02 50 91 00435 618 CMPB RO #2 
g1 12 004 BNEQ 63$ 
E p4 043A CLRL =< SP) 
24 AE OF 0043C PUSHAB D 
1C AE OF 0043F PUSHAB PRIMARY 
28 «=A6 ODD oad PUSHL 40(EVENT_ENTRY) 
000000006 99 04 F 4 CALLS #4 DBGSACOPY_DESC 
14 AE D 44g MOVL PRIMARY, R 
0D 04 Ad €E9 004 4(R3), 62$ 
00028A4A oF DD 00454 PUSHL #166474 
000000006 00 1 FB 0045A CALLS #1, LIBSSIGNAL 
18 AE 9F 00461 62$ PUSHAB 
7€ 8 af 9A 00464 MOVZBL #131, =(SP) 
; DD 004 PUSHL 
000000006 00 03 FB 0046A CALLS #3, DBGSPRIM_TO_VAL 
18 AE 9F 00471 PUSHAB 
7E 7A BF OA 00474 MOVZBL #122, =(SP) 
20 AE DD 00478 PUSHL VALU 
000000006 00 03 FB 478 CALLS 83 DBGSPRIM 10_VAL 
0000007A =F 18 BE 0 FD 4 é CAEL vig, #8, avaCUEs #122 
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DBGEVENT 18-96 =1984 259: AX-11 Bliss-32 V4.0-742 
Miteeitty 1e-Sep- 382 90: 78558 DEBUG. SRC IDBGEVENT.B325 1 
00028A52 BF DD 004 PUSHL #166482 
000000006 00 nf FB i3k ons CALLS #1, LIBSSIGNAL 
40000000 = 8F 63 D1 0049E 64$:  CMPL (R2), #1073741824 
4 1F OO4A BLSSU 68 
; DD 004A 658: PUSHL  (R2) 
DD 004A9 66$:  PUSHL 
00028230 8F DD 004AB PUSHL #164400 
000000006 00 0008 FB O48) 67$: CALLS , { LIBS$SIGNAL 
oR Bee awe bee 
000000006 00 FB aceh CALLS #2, DBGSMAP_TO_REG_ADDR 
00028CcA8 BF bp O4CA PUSHL #167080 
oor 1 9409 BRW 7 
50 000000006 6 i: 9040 69$:  MOVAB DBGSRUNFRAME+4, RO 
0 62 D1 OO4DA CMPL  (R2), RO 
O¢ 1F 0040 BLSSU 
50 000000006 9 9E OO4DF MOVAB  DBGSRUNFRAME+72, RO 
50 62 D1 O04E6 CMPL = (R2), RO 
BC IF OO4ED BLSS 
0 AE 9F OO4EB 708 PUSHAB DUMMY 
0 AE 9F OO4EE PUSHAB SYMID_LIST 
20 AF DD 904F1 PUSHL VA 
000000006 00 03 FB 0044 CALLS #3, DBGSNGET_SYMID 
1¢ «=AE ODD OO4FB PUSHL SYMID_LIST 
000000006 00 01 FB OO4FE CALLS #1, DBGSSTA_LOCK_SYMID 
20 AE 9F 00505 PUSHAB DUMMY 
0 Ad 9F 00508 PUSHAB 48(EVENT_ENTRY) 
20 AE DD 00508 PUSHL VAL 
000000006 00 FB 00508 CALLS #3, DBGSNCOPY_DESC 
177, =A 8 88 0051 BISB2 #8, 23(EVENT_ENTRY) 
08 AC OD 90519 PUSHL MESSAGE _VECT 
3 AE 9F 0051C PUSHAB PAGE_LIST 
8 ae DD 0051F PUSHL 40(EVENT_ENTRY) 
000000006 00 FB 00522 CALLS #3, DBGSAGET_PAGES 
03 0 5 005 9 BLBS RO, 71$ 
FF78 31 005eC BRW 
54 24 AE DO 0052F 71$:  MOVL PAGE bist RG 
52 00000000° Ef D0 09 ; 72$: MOVE EVENT PAGE _QUEUE , PAGE_ENTRY 
50 00000000' EF 9 005 ¢ 73$: MOVAB EVENTSPAGE_QUEUE, RO 
50 : : 4 CMPL § PAGE_ENTRY; RO 
46 BEQL 7 
04 Ab 08 A2 01 0054 CMPL (PAGE_ENTRY), 4(R4) 
0 if 0540 BNEG 4$ 
Oc A2 B6 0054F INCW 12(PAGE_ENTRY) 
55 0 00 0 : MOVL #1, PAGE_FOUND 
1 BRB 
52 6 00 7 74$: MOVL  (PAGE_ENTRY), PAGE_ENTRY 
E A BRB 73$ 
$0 E C 75$:  BLBS | PAGE_FOUND, gos 
4 AE D F MOVL  PAGE“LIST, R 
Hs AE 64 Ad D 63 MOVL 4 (R3J, ADORESS 
0 AE . 3g p 6 MOVL  4(R3). ADDRESS#4 
8 AE 9F 00560 PUSHAB PROTECT 
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DBGEVENT 1§- Sep-1984 00:59: AX-11 Bliss-32 V4.0-742 
v04=000 ees Pa eee MR NERY pa ae het 
F DD 0057 PUSHL #15 
3C if if ie BHSHAB ADDRESS 
000000006 00 8 EB 77 CALLS #5, SYSSSETPRT 
6 £8 0057E BLBS RO, 76$ 
04 A bp 1 PUSHL  4(R3) 
FFE 1 BRW 66$ 
E D4 7 76$:  CLRL <=<(SP) 
2c OAL DD 589 PUSHL PROTECT 
3c AE OF go eaE BHSHAB ADDRESS 
000000006 00 08 EB 039) CALLS #5, SYSSSETPRT 
1 0 €8 00598 BLBS 9$ 
000284¢4 BF DD 00598 PUSHL #165060 
000000006 00 01 FB O05A1 77$: CALLS #1, LIBSSIGNAL 
50 04 B0 05a8 78$:  MOVL #4. RO 
4 005AB RET 
04 OD OOSAC 79$: PUSHL #4 
000000006 00 01 FB OO AE CALLS #1, DBGSGET_MEMORY 
52 30 D0 0058 MOVL RO, PAGE 
00000000' EF 62 OF 00588 INSGUE (PAGE_ENTRY), EVENTSPAGE_QUEUE 
0 24 AE D0 bpees MOVL PA 43 T, R 
08 A2 04 AO DO 005c3 MOVL 4 ER J 8 (PAGE gfNTRY? 
OC Ae 01 BO 005¢8 MOVW 18(PAG 
24 ~=AE 24 BE DO 005CC 80$:  MOVL spAce crete “pene ‘east 
54 24 AE DO 00501 MOVL PAGE_CIST, R4 
03 24 59 00505 BLBC R4, 81$ 
FF58 31 00508 BRW 72$ 
SA 08 AA 09 00508 81$:  MOVL 8 (NOUN NODE), NOUN_NODE 
52 13 005DF BEQL 87$ 
10 oD O0sE1 PUSHL #16 
000000006 gi FB 005E3 CALLS #1, DBGSGET_MEMORY 
56 0 00 O05EA MOVL. RO, EVENT ENTRY 
66 3¢ BE 0040 8F 2 005ED MOVC3 #64 aevERT gQuevE (EVENT ENTRY) 
-- 66 005F4 INSQUE CEVENT ENT de EVENT_QUEUE 
20 Ab DS 005F8 TSTL 32CEVENT NIN 
03 13 005FB BEQL 82$ 
08 AB 06 005FD INCL 8 (WHE N_E 
24 «AB OD $600 828 TSTL 6(E EATS NENTRYD 
03 13 0060 BEQL 83$ 
08 Ad 06 00605 INCL 8(DO_ENTRY) 
FDIB 31 00608 B38: BRW 54$ ~ 
01 50 91 00608 84$:  CMPB RO, #1 
0 ; 960 BEQL 83 
OOA 61 BRW 9$ 
50 16 Ad 9A 00613 85S MOVZBL 23 (EVENT. ENTRY), RO 
05 50 91 0061 CMPB 
OA 12 061A BNEQ ae 
28 a6 00000000' EF 9E 0061C MOVAB DBGSOPCODES CALL, 4O(EVENT_ENTRY) 
D 11 06 4 BRB $ 
06 0 91 006 $ 86$ CMPB se RO, #6 
OA 12 006 BNEQ 
28 A6 00000000' EF 7 6 MOV DEGSOPCODES_BRANCH, 4O(EVENT_ENTRY) 
C 11 006 g7$: BRB 
08 30 91 00635 88$: CMPB RO, #8 
4 13 006 BEQL 96$ 
09 50 91 0063A CMPB sO, #9 


nue 


16-Sep-1984 59: AX-11 Bliss-32 V4.0-742 Page 86 
1eree- 138s 99: 78is9 — OauG. Baclage vent aso. ve 8 
ts 33 gp mE BFS i ane 
000000006 99 1 F 641 CALLS #1, DBGSGET_MEMORY : 
0 DO 00648 MOVL RO, OPCODE_CIST : 
A D5 00648 TSTL NOUN. NODE + 2779 
- 064D BNEQ 9 : 
0c 04 BC 08 8 FD O64F CMPZV #8, #8, @VERB_NODE, #12 + 2780. 
08 633 BEQL 898 ; | 
0B 04 BC 08 08 E 0637 CMPZV 43, #8, @VERB_NODE, #11 ; 2781, 
67 00000000' EF 040 8F 065F 89$:  MOVC3 #64, DBGSOPCODES_STEP_USER, (OPCODE_LIST) : 2784) 
00000000' €F 00000000° EF igi gf g 0669 MOVC3 #64. DBGSOPCODES-STEP-USER, - ~ + 2785 | 
DBGSOPCODES_USER : | 
14 11 90677 BRB > 2779 
8F 00 6E 09 2c 0679 90$:  MOVCS #0, (SP), #0, #64, (OPCODE_LIST) + 2789 
BF 00 6E th 2c bose MOVCS #0, (SP), #0, #64, DBGSOPCODES_USER t 2790) 
00000000' EF 00688 ; 
A 05 068 91$: | TSTL | NOUN_NODE + 2798 
12 13 0068F BEQL 94$ F 
00 67 6A £2 00691 BBSS | (NOUN_NODE), (OPCODE_LIST), 92$ + 2800) 
00 00000000' EF 6A E2 00695 928: BBSS | (NOUN-NODE), DBGSOPCODES_USER, 93$ : 2801 
5A 08 AA 00 0069D 93$:  MOVL § 8(NOUR_NODES, NOUN_NODE + 2802 
EA 11 006A1 BRB 91 : 
28 «Ab 7 00 006A3 948 MOVL  OPCODE_LIST, 4O(EVENT_ENTRY) > 2808 
ec 11 006A7 BRB 101$ : 2752 
07 0 91 DO6A9 95$ CMPB ss RO, #7 : 2812) 
05 12 006AC BNEQ 98$ : 
28 AS D4 OO6AE 96$: CLRL 40(EVENT_ENTRY) : 2813) 
22 11 00681 97$: BRB 101$ : 
00000000" EF 9F 00683 98$: | PUSHAB P.ABQ > 2819) 
0B 11 00689 BRB 100$ ; | 
02 50 91 0068B 99$:  CMPB- RO, #2 + 2826) 
15 13 0068 Bea. ~=ss«10fS : | 
00000000' FF 9F 006C PUSHAB P.ABR + 2832) 
1 DD 006C6 100$: PUSHL #i : | 
00028362 8F DD 006C PUSHL #164706 : | 
000000006 00 03 FB 006C CALLS #3, LIBSSIGNAL ; 
03 14 Ab 9100605 1018: CMPB 20¢EVENT_ENTRY), #3 : 2839. 
9 13 00609 BEQL 10g8 : | 
0128 31 006DB BRW 112$ : | 
0B 04 Re 08 08 FD O6DE 102$: CMPZV #8, #8, @VERB_NODE, #11 + 2847. 
0B 06E4 BNEQ  108$ : | 
1 OD GEG PUSHL #1 > 2849 
000000006 00 1 re 6 CALLS #1, DBGSSET_STP_LVL : 
4 11 OO6EF BRB 105$ : 
OF 900990006 0 €9 006F1 103$: ®BLBC bBGSGB EXC_BRE_FLAG, 104$ > 2861 | 
0028638 BF DD 006F8 PUSHL #1674 > 2863 
000000006 00 1 Fe fe CALLS #} , .LIBSSIGNAL 
50 000000006 6 0 109 104$: MOVL OO GSRUNFRAME +64, RO + 2874 
60 01 ¢ 7 PROBER #0, #1, (RO) ; 
1 71 BNEQ 106$ ; 
DD 0071 PUSHL R : 2876 
1 OD 116 PUSHL # ; 
00028160 8F DD 0071 PUSHL #164320 ; 
000000006 00 3 FB OO7IE CALLS #3, LIBSSIGNAL : 
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voe=000. | 1ec$ep-198e 12:16:58 — Edeeue. SACSbaGE VENT c@So+1 


50 00000000" EF 9 2 1 MOVAB EVENTSCMD QUEUE, RO 
; CMPL QUEUE ENTRY, R 
0 BNEG 114 
0099 A BRW e78 
53 14 ag D 114%: MOVAB 20(QUEUE_ENTRY), R3 
: D TSTL (R3) 
5 15 AB OA SbyzBL D{CEVENT_ENTRY), RO 
8 01 a8 3 CMPB easy ; 
A 12 00830 BNEQ 1248 
g O84) BNED 188 
50 16 ae 9A “3 MOVZBL 2 (EVENT ENTRY), CODE_1 
51 02 AS’ 9A 084 MOVZBL 2(R3), CODE_2 
03 50 D1 00848 CMPL  CODE_1, #3 
OF 13 0084 BEQL 1158 
04 0 Di 0085 CMPL CODE 1, as 
OA 13 085 BEQL 115 
03 1 D1 0085 CMPL  CODE_2, #3 
03 13 0838 BEQL «-115$ 
04 1 D1 0085A CMPL  CODE_2, #4 
09 12 0085p BNEQ 1178 
2c a2 2¢ AG D1 OO8SF 115$: CMPL 44(EVENT_ENTRY), 44(QUEUE_ENTRY) 
SA 12 00864 116$: BNEQ 1 6§ 
3c 11 00866 BRB 123$ 
34 Ad 9F 00868 117$: PUSHAB 52(QUEUE_ENTRY) 
4 A6 9F 0086B PUSHAB 52(EVENT-ENTRY) 
0000v CF 02 FB OOBGE CALLS #2, COMPARE_VMSDESC 
4A 50 £9 087 BLBC RO, 126$ 
2 11 0 876 BRB 123$ 
01 6 91 00878 1188: CMPB RO, #1 
0% 05 16 46 BF 008TD Fal, iittvewt gutenss Oh, ie 
0011 000A 000A 000A 00882 119%:  .WORD é 0$-1198.- © ~ 
0011 0088A 1 0$-1198.- 
120$-119$,- 
121$-119$.- 
121$-119$ 
02 a3 16 A6 91 0088C 1208:  CMPB 2 (EVENT_ENTRY), 2(R3) 
D1 «11 00891 BRB 16$ 
08 02 Ad 91 0895 121$: CMPB 2(R3), #8 
0 13 089 BEQL 123$ 
09 02 As 9 99 CMPB (R35), “9 
11 0089D BRB 16 
02 91 OOB9F 1228: CMPB RO, #2 
1 Ae BNEQ 125$ 
03 «A 80 BF g AG 123$: BISB2 # 28. 3(R3) 
15 AD 124$ RB 12 
00000000' EF 9F AB 125$: PUSHAB P.ABS 
1 DD 0088 PUSHL #1 
00028362 8F DD 008B PUSHL #164706 
000000006 99 ; F B CALLS #3, LIBSSIGNAL 
2 CO 126%:  MOVL NFATO_ENTRY, QUEUE _ENTRY 
FF55 ¢ BRW 113$ 
56 66 F QO8C6 127$:  REMQUE (EVENT_ENTRY), EVENT ENTRY 
00000000° FF 6 . C INSQUE (EVENT“ENTRY). @EVENTSCMD QUEUE +4 
08 Ab 6 0 D0 MOVL EVENT_ENTRY, S(EVENT_ENTRY) 


12 
T - 259: ad ° 
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OC Ab 36 p D4 MOVL FY NT_ENTRY, 12(EVENT_ENTRY) 331 
FF 2B D8 Rw 12$ : 30 
6 Hs AE 8 dB 1388: MOVL EVENT_QUEUE, EVENT_ENTRY 3 31 
C af of 129$: MOV EVENT_QUEUE, RO 3; 317 
0 3 i) E CMPL FYENTLENTRY, RO : 
F 1 £8 BEQL $ 3 
52 96 D MOVL (EVENT_ENTRY), NEW_EVENT_ENTRY : ‘7 
6 OD LB PUSHL EVENT_ENTRY 3: 317 
0000v cf 91 FB ED CALLS #1, DELETE EVENT_ENTRY : 
6 ¢ oY is pov Nee Y_ENTRY, EVENT_ENTRY : 17 
50 53 B0 fF? 130$: MOVL #1, RO : 318 
4 FA RET ; 318 
; Routine Size: 2299 bytes, Routine Base: DBGSCODE + OAEB 


H 12 
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2:1 (10) 


3 p66 1 § 1 GLOBAL ROUTINE DBGSEVENT_SHOW_CANCEL_SYNTAX (INPUT DESC 

; 063 ' VERB_NODE, MESSAGE_VECT) = 

: 3065 1 § 1 | FUNCTION 

; 4] 190 1! This routine parses a show or cancel break, trace, or watch point 

: 306 191 1! comman 

; 3068 19¢ 1 after the "CSHOW! CANCEL] BREAK', 'CSHOW!CANCEL] TRACE’, or 

3 9 195 1! *CSHOW: CANCEL] WATCH’ has been parsed. This routine is called 

$ Or 138 : from DBGNSET. 

; Ore 136 : The following syntax is accepted: 

: Ore 198 <event> 

; O78 9 ! If the event is a watchpoint, <event> is: 

: 3078 0¢ 1! /ALL } 

3 34 ? ! C <address> C , <address> J*] 

: 081 05 otherwise, <event> is: 

: O83 0 1! /EXCEPTION ! 

3; 35084 08 1! /CALL } 
; 3085 09 13 /RETURN } | 
; 3086 10 1) /BRANCH } | 
3; 3087 ite /LINE { 

; 5088 \¢ . s /INSTRUCTION C = ( <mnemonic> C , <mnemonic> ] ) J 

3; 3089 1 - /ALL } 

3 bot sie : {C <address> C , <address> J*] 

: 09¢ 316 1! INPUTS 

; 309 1 1! INPUT_DESC: The current command Line input descriptor. 

3; 3094 218 1! VERB_NODE : A pointer to a DEBUG verb node, with the COMPOSITE 

; $032 $39 : attribute set to: 
: 3097 221 1 EVENTSK_SHOW_BREAK, EVENTSK_SHOW_TRACE, | 
; 3098 2 @ 1} EVENTSK~SHOW-WATCH 

: 3099 223 1! EVENTSK-CANCEL_BREAK, EVENTSK_CANCEL_TRACE, 

H 199 $¢ : EVENTSK_CANCEL_WATCH. 

; 108 26 1: MESSAGE_VECT: The address of a longword to contain the address 

3 st st : of a message argument vector. 

; 105 ¢3 1 ' OUTPUTS 

331 » 33 The parse tree headed by VERB_NODE is created to represent the 

: 4 1 : } command parsed. Errors cause this routine tc abort. 

: 3109 5 "BEGIN 

tii 3 MAP 

; 11g 4 VERB_NODE : REF DBGSVERB_NODE; ! Verb node pointer 

: 3114 8 LOCAL 

3; 3115 STATUS, ' Returned statu 

3 18 40 ADVERB_NODE : REF DBGSADVERB_NODE, ' Adverb node ° nter 

3; 311 41 ADVERB_LINK : REF DBGSADVERB_ NODE, ' Adverb node { nk 

; 3118 42 NOUN_NODE : REF DBGSNOUN_NODE, ! Noun node pointer 
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REF DBGSNOUN_NODE ; 


OL igsnse 
SRC JDOBGEV 
NOUN_LINK : ! Noun node Link 


BIND 


Define the character strings to parse. 
DBGSCS_EXCEPTION : SAC (EXCEPTION) 


DBGSCS-INSTRUCTION =  $AC ('INSTRUCTION'), 

DBGSCS_CALL = SAC ('CALL') | 

DBGSCS-RETURN = SAC ('RETURN'), 

DBGSCS-BRANCH = SAC ('BRANCH'), 

DBGSCS_LINE = SAC ('LINE'), 

DBG$CS-ALL = SAC (ALL), 

DBG$CS-COMMA = $AC (',"), 

DBG$CS-SLASH = SAC (°7*) 

DBGSCS-CR = UPLIT BYTE (1, DBGSK_CAR_RETURN) ; 


! Initialize status to success, in case we don't need to 
parse any addresses. 


STATUS = STSS$K_SUCCESS; 


Initialize the verb's adverb and noun pointers to null. 


VERB_NODE CDBG$L_VERB_ADVERB_PTR) = 0; 
VERB-NODE CDBGSL-VERB_OBJECT_PTRI = 0; 


Initialize the adverb and noun Links. 

ADVERB_LINK = VERB NODE CDBG$L_VERB_ADVERB_PTRI; 

NOUN_LINK = VERB_NODE COBGSL_VERB_OBJECT_PTRI; 

' Case on the yer’ composite - the command type is CSHOW! CANCEL) BREAK, 
CSHOW: CANCEL] TRACE, or CSHOW:! CANCEL] WATCH. 


SELECTONE .VERB_NODE CDBG$B_VERB_COMPOSITE) OF 


! CSHOW! CANCEL] BREAK and CSHOW:CANCEL) TRACE come here, 
to determine the event type. 


CEVENTSK_SHOW_BREAK, EVENTSK_CANCEL_BREAK 
EVENT SK=SHOW_TRACE EVENTSK~ CANCEL TRACE): 


: Parse the command according to the following syntax: 
i /EXCEPTION 

: SCA 

! — /RETURN 


Page 91 
9°10) 
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/BRANCH 

/LINE 

/ INSTRUCTION 

{ <address> C , <address> J+) 
First, look for a ‘'/'... 
iF MATCH (DBGSCS_SLASH) 

BEGIN 


=~ re tt te te te 


Get an node for the qualifier. 
GET_ADVERB_NODE ; 


Parse the qualifier. 
SELECTONE TRUE OF 
SET 


Parse /EXECEPTION. 


{MATCH (DBGSCS EXCEPTION) ): 
ADVERB _NODE COBG$B_ADVERB_LITERALJ 
ADUERB EXCEPTION; 


| Parse /CALL. 


CMATCH speeess CALL)): 
ADVERB_NODE COBGSB_ ADVERB_LITERALJ 
ADUERB. CALL; 


Parse /BRANCH. 


{MATCH (oBcscs BRANCH) J: 
ADVERB_NODE CDBGSB_ ADVERB_LITERALJ 
ADUER RB_BRANCH; 


SOOWONAVUES WN — O ODNAUNE WIN S(O OONAUE AR OO ONOULS WO 
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: Parse /LINE. 


{MATCH (oBGsCs LINE)): 
ADVE BNO ope DBGSB_ ADVERB_LITERAL] = 


BEE EEE & FAWN WIAA HIG PIPUDIPINIPININIDY 2 9 Ot OS S| “DOO DOOOCOCOCOCO 


Parse /INSTRUCTION 


tMATCH soees<s INSTRUCTION) J: 
ADVERB _NODE COBGSB fome LITERALJ 
ADVERB. INSTRUCTION 
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: 4 8 4 

3 5 23 : Parse /ALL 

; ; 61 4 tMATCH (oacscs AL): 

; 5 8 4 ADVE NODE DBG$B_ADVERB_LITERAL] = 

; 63 4 ADUERB_ALL: 

; 3240 64 4 

3: 3241 65 4 

; tg 06 4 ! Otherwise, we've got a syntax error.... 

3: 324 67 4 ' 

3 3264 8 4 COTHERWISE): 

: 3245 69 4 SYNTAX_ERROR; 

3 re 0 4 TES 

> 324 71 4 END 

: 3248 Le 4 

3; 3249 7 ELSE 

; 3250 74 

3; 3251 75 

; 26 us : Parse the defaulting <address> [ , <address> J. 

H 54 78 4 BEGIN 

3; 3255 79 4 

; 3256 80 4 

3; 3257 381 4 ! If we're not standing on_a <cr>, get the 

; 3258 356 4 i <address> C , <address> J, as Long as 

3 $28 $3 : an <address> is terminated with a ','. 

: $0 85 5 IF (NOT MATCH (DBGSCS_CR)) 

: o¢ HF] 4 THEN 

; 326 87 4 0 

3: 3264 88 5 BEGIN 

3; 3265 89 5 

; 68 $05 5 ! Get a noun node for an <address>. 

; 326 91 5 ! 

; 3268 39¢ 5 GET_NOUN_NODE; 

3; 3269 393 5 

3; 3270 $o¢ 5 

: 3271 95 5 ! Get an <address> - the is a status warning 
3 Le $09 2 if more is on the Line. 

3 74 395 STATUS = beseupanse poet isecie hs DES +14 

: 3275 399 OUR_NODECDBGS$L_NOON UE), 
3 327 400 "DBGSCB RADIXCOBGSB NaRDike INPUT 
: 327 491 TOKEN c “FERA CORBA” -MESSAGE_VECT); 
: : 403 

; 3280 404 ' If the status indicates success, there is no 
: 1 405 5 more on the Line, and we exit this Loop. 

s 3 109 if .STATUS EQLU STSS$K_SUCCESS 

3 £08 THEN 

; 5 4 EXITLOOP; 

: i 

: 3288 aig ' If the status is not a warning, something is 
; 3289 41 i wrong, so return with a failure. 
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> 3 
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STATUS NEQU STS$K_WARNING 
RETURN . STATUS 
MATCH (DBGSCS_COMMA)); 


mm —4e<--— 
z 
“So 


WHIL 
END; 
END; 


1$-3en-1986 0:59:10 yaett aL 


1D 


Parse CSHOW!CANCEL) WATCH CC /ALL | <address> C , <address> J*)J. 


CEVENTSK SHOW_WATCH, EVENTSK_CANCEL_WATCH): 
IF MATCH (DBGSCS_SLASH) 
THEN 
BEGIN 
GET_ADVERB_ 


NODE; 
NEED MATCH tppeéc CS_A 
ADVERB. NODE CDBGSB~ Abteke LITERAL] = ADVERB_ALL; 


BEGIN 
con” MATCH (DBGSCS_CR) 


! Get the <address> { , <address> J, ,38 tong as 
; an <address> is terminated with a iP 


DO 
BEGIN 
Get a noun node for an <address>. 
GET_NOUN_NODE; 


! Get an <address> - the is a status warning 
if more is on the Line. 


STATUS = DBGSNPARSE Sama ASHE SES tage LL gt 


wees -RADIXCOBGSB ithe leeur3 
TOKENSK-TERM_COMMA,~.MESSAGE_VECT); 


' If the status indicates success, there is no 
more on the Line, and we exit this loop. 
IF .STATUS EQLU STSSK_SUCCESS 

EXITLOOP; 
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471 ! If the status is not a warning, something is 
thf } wrong, so return with a failure. 
ark IF_.STATUS NEQU STSS$K_WARNING 
£78 RETURN .STATUS; 
47 
ry A END 
rt 4 4 ? WHILE (MATCH (DBGSCS_COMMA)); 
if END; 
189 
4 END; 
rtf 
r 5 TES; 
89 
488 ' pan the status after persing <address> C , <address> ] or <mnemonic> 
489 ! C , <mnemonic> J. If there's nothing left on the Line, the status will 
rh be success, and we can leave. Otherwise we signal a syntax error. 
49 IF .STATUS EQLU STS$K_SUCCESS THEN RETURN STSSK SUCCESS; 
49 -MESSAGE_VECT = DBGSNSYNTAX_ERROR (DBGSNNEXT_WORD (.INPUT_DESC)); 
ree RETURN STS$K_SEVERE 
496 1 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
4E 4F 49 54 50 45 43 58 45 O09 OQOTA1 P.ABT: .ASCII <9>\EXCEPTION\ 
4— 4F 49 54 43 55 52 54 53 4E 49 OB OO1AB P.ABU: .ASCII <11>\INSTRUCTION\ 
4C 4C 41 43 a baie P.ABV: .ASCII <4>\CALL\ 
4E ¢ 55 54 45 $ 6 3186 P.ABW: .ASCII <6>\RETURN\ 
48 435 4— 41 52 42 06 OQO1C3 P.ABX: .ASCII <6>\BRANCH\ 
45 4&6 49 4C 04 QOICA P.ABY: .ASCII <4>\LINE\ 
4C 4C 41 3 Bice P.ABZ: .ASCII <3>\ALL\ 
st 1 103 P.ACA: .ASCII <1>\,\ 
F Q1 00105 P.ACB: .ASCII <1>\/\ 
OD 01 00107 P.ACC: .BYTE =» ta 
DBGSCS_EXCEPTION= P.ABT 
DBGSCS_INSTRUCTION= P.ABU 
DBGSCS_CALL= P.ABV 
DBGSCS_RETURN= P. ABW 
DBG$CS_BRANCH= P.ABX 
DBGSCS_LINE= P.ABY 
DBGSCS_ALL= P.ABZ 
DBGSCS_COMMA= P.ACA 
DBGSCS_SLASH= P.ACB 
DBGSCS_CR= P.ACC 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 -ENTRY DBGSEVENT_SHOW_CANCEL_SYNTAX, Save R2,R3,- 
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R4,RS,R6,R7,RE,RI,RI0,R11 


B G E OVAB DBG$GB_RADIX, R11- : 
A 09 os 88 3F 05 MOVAB DBGS$GET_TEMPMEM, R10 : 
9 F 9E 9 MOVAB DBGSeS ie RY : 
: 00006 60 9 1 MOV DBGSNNA : 
1D 1 MOVL #1, ST ATG : $5 
0 08 A p MOVL VER NODES ye + 3270 
04 AO 7C¢ CLRO = &(ROY : 
55 4 AO 9 MOVAB 4(RO), ADVERB hil ; 1 
6 08 AO 9E 09 ¢ OVAB BCR », N : 3277) 
5 01 AQ 7 MOVZBL 1<R0), NOU : 383 
02 93 91 8 6 CMPBséRO, #2 : 
gp 1B 000 BLEQU 2$ : | 
09 91 00038 1$: CMPB) sé, #9 : 
Q 13 000 BEQL 2$ : 
08 91 0004 CMPBSséRO, #11 : 
03 13 0004 BEQL 6. 2$ : | 
OOEF 31 0004 BRW 14$ F | 
01 DD 00048 2$ PUSHL #1 : 3308 
FE AD 9F OO04A PUSHAB DBGSCS SLASH ; | 
54 04 ac 00 30080 MOVL INPUT_BESC, R4 3 
54 0D 00051 PUSHL : 
68 03 FB 90055 CALLS #3, DEGSNMATCH : 
03 0 58 0056 BLBS RO, 3$ : | 
008¢ 1 00059 BRW 11$ : | 
03 dD 0005C¢ 3s: PUSHL #3 : 3310. 
6A gi FB 0005E CALLS ai. DBGSGET_TEMPMEM ; 
52 0 dO 00061 MOVL ADVERB_RODE : 
08 A2 D4 90064 CLRL BCADVERS NODE) ; 
65 52 00 00067 MOVL ADVE STRODE. (ADVERB_LINK) 3 
55 08 <A2 9E OO06A MOVAB BABVERD NODE), ADVERB_LINK ; 
01 DD 0006 PUSHL : 3326 
CA AD OF 9907 PUSHAB DBG$CS_EXCEPTION : | 
54 DD 0007 PUSHL : 
68 03 FB 0007 CALLS #3, DBGSNMATCH ; 
01 50 01 00078 CMPL sO, #1 ; 
05 2 0078 BNEG : | 
62 0B 90 0007D MOVB #11, (ADVERB_NODE) : 3327, 
4— 11 9080 BRB 8S : | 
01 po 0082 4$: PUSHL #1 : 3333) 
EO Ad 9F 00084 PUSHAB DBGSCS_CALL : | 
4 DD 00087 PUSHL P : 
68 ; FB 0089 CALLS #3, DEGSNMATCH : 
1 D C CMPL sR. @ : 
05 12 OO8F BNEG ; | 
62 12 9 0091 MOVB #18, (ADVERB_NODE) > 3334, 
3A 11 00094 BRB ay, ; | 
1 pp 36 5$: PUSHL #1 > 3340 
EC Ad 9F 0009: PUSHAB DBGS$CS_BRANCH ; 
4 DD 00098 PUSHL ; 
8 FB CALLS #3, DEGSNMATCH F 
1 : A CMPL)séRKO. ; 
° ; A BNE ; 
62 9 A MOVB #19, (ADVERB_NODE) > 3341 
36 11 BRB 8$ ; 
1 DD OOOAA 68 PUSHL #1 > 3347 
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F3 AD «OF QOOAC PUSHAB DBGS$CS_LINE : | 
54 DD OOOAF PUSHL R ; 
68 3 FB 000B1 CALLS #3, DBGSNMATCH : 
1 Q D B4 CMPL =soRO, #1 ; | 
1 0087 BNEQ : 
62 4 9 89 MOVB #20, (ADVERB_NODE) > 3348 
12 11 OO00BC BRB 8$ ; 
01 oD 0 BE 7$: PUSHL #1 : 3354. 
D4 «=6A9 «OF 000 PUSHAB DBGS$CS_INSTRUCTION : 
54 DD 000C PUSHL : 
68 3 FB 000C CALLS #3, DBGSNMATCH : | 
01 0 01 O9¢ CMPL = RO, #1 : 
: 2 CB BNEQ ; | 
62 1 3 b00¢D MOVB el. (ADVERB_NODE) ; 3355) 
0108 31 9900 8$: BRW 208 ; 
01 DD 00003 9$: PUSHL #1 ; 3361) 
F8 Ad OF 00005 PUSHAB DBG$CS_ALL : 
54 DD 00008 PUSHL ; 
68 03 FB OOODA CALLS #3, DBGSNMATCH : | 
01 50 D1 00000 CMPL 0, #1 : | 
03 13 000E0 BEQL §=s-«10$ ; | 
0087 31 O00E¢ BRW 15$ ; 
OOA3 31 QOOOES 10$:  BRW 178 : 
01 0D 000E8 11$: PUSHL #1 ; 3385) 
0210 8F 8B OOOEA PUSHR  #*M<R4,R9> : | 
68 03 FB OO0EE CALLS #3, DBGSNMATCH ; 
dC 50 €8 OOOF1 BLBS RO, 8$ ; | 
04 DD OOOF4 12$:  PUSHL #4 : 3388) 
6A 01 FB 000F6 CALLS #1, DBGSGET_TEMPMEM : | 
53 50 00 000F9 MOVL RO, NOUN_NOBE 3 
08 A3 D4 OOOFC CLRL 8 (NOUN_NODE) : 
66 53 DO OOOFF MOVL NOUN _NODE, (NOUN LINK) 3 
56 08 A3 9E 00102 MOVAB 8 (NOOUN_NODE), NOON_LINK 3 
OC AC DD 00106 PUSHL MESSAGE_VECT ; 3401 
01 DD 00109 PUSHL #1 ; 3399 | 
7E 8 9A 00108 MOVZBL DBG$GB_RADIX, -(SP) : 3400) 
53 DD 0010E PUSHL NOUN_NODE ; 3399 
54 DD 00110 PUSHL R4 : 
000000006 00 05 FR 00112 CALLS #5, DBGSNPARSE_ADDRESS ; 
57 0 dO 9011 MOVL RO, STATUS : 
01 57 D1 OO11C CMPL STATUS, #1 : 3407. 
AF 13 OO11F BEQL 8s ; 
37 d5 00121 TSTL STATUS > 3415) 
: | ot 3 BEQL 13$ ; | 
00A5 33 001 BRW 20$ F 
01 0D 00128 13$:  PUSHL #1 > 3419) 
FC AD QF OO12A PUSHAB DBGSCS_COMMA ; 
54 DD 0012D PUSHL 4 ; 
68 93 FB ot F CALLS #3, DBGSNMATCH ; 
9B F 1 BLBC =E-—s«aRO, 8S : 
8p 1 001 BRB 12$ ; | 
OE 91 00137 148:  CMPB RO, #14 : 3428, 
94 12 O013A BNEQ 8$ ; 
01 pb 13¢ PUSHL #1 > 3430) 
FE A 9F 001 : PUSHAB DBGSCS. SLASH ; 
54 04 AC 00 0014 MOVL § INPUT_BESC, R4 : 
54 DD 00145 PUSHL R4 : 
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FC 
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1 
14- 
4 147 
E 14A 
DD 00140 
fe 14F 
De 00186 
wwe 
DO 1 F 
oF 312) 
PB 00166 
a} b189 
DD thes 158: 
BB 0016 
fe 017 
E9 0017 
DD 00178 
14 00185 
Ty 90189 
i) Oo1e 
DD 00190 18$: 
BB 00192 
EB 00199 
DD 0019C 198: 
FB 0019E 
DO 001A) 
D4 001A4 
DO 001A7 
9E OO1AA 
DD OO1AE 
DD 00181 
9A 00163 
DD 00186 
DD 00188 
FB OO1BA 
DO 001C1 
D1 001C4 
08 GOIe9 
1 00168 
? O1CD 208: 
4 00100 
pp 1D1 218: 
BD GO1D6 
F 1D 
4} 108 
} 196 228: 
3 1E 
3 1E 
4 QO1E 
DD OO1E? 23%: 
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#3, DBGSNMATCH 

RO. 188 

#1, DBGSGET_ TEMPMEM 
ADVERB NODE 


0° 

(ADVERB_NODE) 

DVERB_NODE, (ADVERB_LINK) 

(ADVERB NODE), ADVERB_LINK 
BGSCS_ALL 

3 
0 
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48 
DBGSNMAKE _ARG_VECT 


wme2ze 
ue 


R4 
24$ 
#23, (ADVERB_NODE) 


#1, DBGSGET_TEMPMEM 

, NOUN_NODE 
NOUN_NODE) 

NOUN_NODE, (NOUN LINK) 

8(NOON_NODE), NOON_LINK 

MESSAGE_VECT 


# oe 
DBG$GB_RADIX, -(SP) 
NOUN_NODE 

#5, DBGSNPARSE_ADDRESS 
0, STATUS 
STATUS, #1 

TATUS 


STATUS, RO 


e 
DBGSCS_COMMA 
#3, DBGSNMATCH 
RO, 19$ 
status, # 

3$ 
#1, RO 

INPUT _DESC 
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01 
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viva erent Re 99:73 isg | OSG Bh SSacevent asec 39° 410) 

000000006 00 1 FB QOIEA 248: CALLS #1, DBGSNNEXT_WORD ‘ 

0 Dp OO1Ft PUSHL oR : 

000000006 00 } FB OO1E CALLS #1, DBGSNSYNTAX_ERROR ; 

OC 0 DO OOIFA 25$: MOVE RO, aMESSAGE.VvECT ; 
04 DO OO1FE MOVE #4, RO + 3496 
04 00201 RET : 3496 

; Routine Size: 514 bytes, Routine Base: DBGSCODE + 1366 


' Event primary descriptor 

' Event value descriptor 
Event address 

' Event address type 

' Show or Cancel all ? 


PRI : 
VALUE: REF DBG VAL geEsc. 
4 tS VECTOR (2), 


SHOO_CANCEL_ALL, 
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DBGEVENT hese =1984 00:59: AX-11 Bliss-32 V4.0-742 Page 100 
v04-000 12-8 08- 1 3be 33:83 DEBUG. SRCIDBGEVENT .B 3271 oD) 
: Me taf ! GLOBAL ROUTINE DBGSEVENT_SHOW_CANCEL_SEMANTICS(VERB_NODE, MESSAGE_VECT) = 
: 337 199 1 | FUNCTION 
; 337 00 1! This routine builds the event data stuctures based on the 
; 3378 1 37 parse tree passed via the VERB_NODE address. This routine 
: 64 § ! } is called from DBGNSET. 
: 3381 04 1 i INPUTS 
3; 338 > FF VERB_NODE: A pointer to a DEBUG verb node, which defines, 
3 7 208 : } stone ioe the verb's descendants, the desired 
3 ; nd. 
3 5 308 1! MESSAGE_VECT: The address of a longword to contain the address 
: He) 218 ! } of a message argument vector. 
: 3388 511 1! ouTPuTS 
; 3389 21§ 1! The event data structure(s) are updated to include the new event, 
: 3391 ai : and may include: 
: 339 515 1! EVENTSCMD_QUEUE 
; 339 516 1 EVENTSWHEN_ QUEUE 
; 394 317 EVENT$DO_LIST_QUEUE 
; 3390 519 1 
i aoe ae te 
; 3399 28@ é MAP 
3 e200 $7 VERB_NODE: REF DBGSVERB_NODE; ! Verb node pointer 
: 340 3235¢ $ MACRO 
; ret : $259 § SHOW _OR_DELETE_EVENT_ENTRY (EVENT_ENTRY) = 
; tH 2 3598 2 IF .VERB_NODE CDBGS$B_VERB_LITERAL] EQLU DBGSK_SHOW_VERB 
; 3407 " iH 3 SHOW_EVENT_ENTRY (.EVENT_ENTRY) 
: 3409 m 35 g 3 LSE 
; xi . 33% EVENT_ENTRY CEVENTSV_DELETED] = TRUE; 
; alg M 3535 $ SHOWED_CANCELED_ONE = TRUE; 
Sige. £0 teen 
Be BBE ay 
> 341 540 DUMMY , 
3; 3418 541 EVENT_QUEUE: QUEUE HEAD ! Working queue head 
3; 3419 § QUEUVE_ENTRY: REF EVENTSEVENT_DESCRIPTOR, | Event queue entry pointer 
3 rh NEXTQ_ENTRY: REF EVENTSEVENT_DESCRIPTOR,! Event queue entry pointer 
: 3421 4 EVENT ENTRY: REF EVENTSEVENT DESCRIPTOR,! Event entry pointer 
i $432 5 DO.ENTRY: REF EVENTSDO LIST DESCRIPTOR, {DO List entry pointer 
3; 34 § EN_ENTRY: REF EVENTSQHEN DESCRIPTOR, ! WHEN entry pointer 
3: 3424 ADVERB_NODE: REF DRGSADVERE NODE, ! Adverb node Link 
; ° 5 8 EF DBGSN pe, Noun node Link 
> 34 $ 0 i 
Py 428 1 i 
3; 3429 ¢ ! 
; 3430 ' 


PPA AAMII 
MUMS SELLS 


EVENT_ENTRY CEVENTS$B_CMD_KINDJ 
END; 

CEVENTSK_SHOW_TRACE, EVENTSK_CANCEL_TRACE): 
EVENT_ENTRY CEVENTSB_CMD- TYPE) = EVENTSK_TYPE_TRACE; 


CEVENTSK_SHOW WATCH, EVENTSK_CANCEL_WATCH): 
EVENT_ENTRY CEVENTSB_CMD-TYPE) = EVENTSK_TYPE_WATCH; 


COTHERWISE): 
$DBG_ERROR( "DBGEVENT\EVENT_SHOW_CANCEL_SEMANTICS 10°); 


601 TES; 


604 : Initialize Has Value Descriptor flag. 
606 EVENT_ENTRY CEVENTS$V_HAS_VAL_DSCR) = FALSE; 


3 
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>; 3431 4 SHOWED_CANCELED_ANY, ' Did we show/cancel any yet ? 
: 34 ¢ 5 SHOWED CANCELED_ONE, ' Did we show/cancel one yet ? 
; ? ? 2 § COUNTER; ' Counter variable 
: 3435 238 
: 3436 5 
: r 4 299 } Initialize the working queue to be empty. 
: 3439 See EVENT_QUEUE fLOUEUE FLINK) = EVENT QUEUE; 
; ay 27 EVENT_QUEVE CL_QUEVE_BLINK] = EVENT_QUEUE; 
> 344 65 
3 10 $65 ! Get an event descriptor from permanent memory, and 
3 3445 2ef Link it into the working queue. 
: 446 569 EVENT_ENTRY = DBGSGET_MEMORY (EVENTSK_EVENT_DESCRIPTOR_SIZE); 
; 3c 259 INSQUE (.EVENT_ENTRY, EVENT_QUEUE); 
: 3449 57 
3 scee 378 Initialize the command kind to access (default). 
; 3052 303 5 EVENT_ENTRY CEVENTSB_CMD_KIND] = EVENTSK_KIND_ACC; 
: 334 377 ‘ 
; tH ar8 Set the event's command type, found in the verb. 
; 437 380 SELECTONE .VERB_NODE CDBG$B_VERB_COMPOSITE) OF 
: 3459 58 
3; 3460 288 § CEVENTSK_SHOW_ BREAK, EVENTSK_CANCEL_BREAK]: 
; 3461 3584 EVENT_ENTRY CEVENTSB_CMD-TYPE] = EVENTSK_TYPE_BREAK; 
; 3268 3586 CEVENTSK CANCEL BREAK EXC): 
; 588 EVENT_ENTRY CEVENTSB_CMD_TYPE] = EVENTSK_TYPE_BREAK; 
3 589 = EVENTSK_KIND_EXC; 
; 590 
3 4 
F 238 
3 594 
3 595 
3 596 
3 444 
; 98 
3 599 


6 
$09 Initialize the Primary pointer to NULL. 


oct 


; 3488 611 

; 3489 o1¢ 

; 3490 61 

: 3491 614 

; 349 615 

: 349 018 

3: 3494 61 

3; 3495 ols 

3; 349 61 

; 349 620 

3; 3498 621 

3: 3499 6 ¢ 

; 3500 6 

; 3501 624 

3 206 625 

; 350 6 § 

; 3504 6 

: 3505 628 

; 3506 629 

; 3507 630 

; 3508 631 

3; 3509 6 ; 

; 3510 6 

3; 3511 634 

3 21g 635 

3: 351 6 ] 

3 3514 63 

$ $212 O38 

; 3516 639 

3; 3517 640 

3; 3518 641 

3; 3519 ret 

; 3520 364 

3; 3521 644 

3 33 ¢ 645 

3 33 646 

3; 3524 647 

; 3525 648 

: 3526 649 

3; 3527 650 

3; 3528 651 

: 3529 636 

3 35 65 

: 23! 2¢ 4 
3 § 655 4 
3 39 626 6 
; 35 657 4 
: 3535 $28 4 
3 33 659 4 
3; 35 660 4 
3; 3538 1 4 
3; 3539 re) 4 
: 3540 665 4 
3 3541 664 4 
3 306 665 

3; 354 666 

3 3544 66 
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EVENT_ENTRY CEVENTSL_PRIMARY] = 0; 


} Point to the verb's noun List. 
NOUN_NODE = .VERB_NODE CDBG$L_VERB_OBJECT_PTRI; 


Point to the verb's adverb List. 
ADVERB_NODE = .VERB_NODE COBGS$L_VERB_ADVERB_PTRI; 


Initialize the ALL flag. 
SHOW_CANCEL_ALL = FALSE; 


If an adverb exists, process it. 
IF .ADVERB_NODE NEQA 0 
BEGIN 
' Process adverbs based on the Literal set by the 
syntactic processing. 
ween” te -ADVERB_NODE CDBG$B_ADVERB_LITERAL] OF 


Process the /EXCEPTION adverb. 
CADVERB_EXCEPTION): 
EVENT_ENTRY CEVENTSB_CMD_KIND] = EVENTSK_KIND_EXC; 

' Process the /CALL, /RETURN, /BRANCH, /LINE, /OPCODE 
i and /INSTRUCTION instruction-kind adverbs. 
CADVERB_CALL, ADVERB_RETURN, ADVERB_BRANCH 
ADVERB-LINE, ADVERB-OPCODE, ADVERB~ INSTRUCTION): 

BEGIN 

Define the event kind to be instruction. 

EVENT_ENTRY CEVENTSB_CMD_KIND] = EVENTSK_KIND_INS; 


Define the subkind according to the adverb. 


EVENT_ENTRY CEVENTSB_SUB KIND] = 
(SELECTONE -ADVERB_NODE COBGSB_ADVERB_LITERAL) OF 


ADVERB_CALL): 
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19-88-1382 9 23:49 DEBUG. SRCIDBGEVENT 83271 ° (11) 
EVENTSK NS CALL; 
CADVERB_BRARCH): 
EVENTSK {NS BRAN: 
CADVERB LINE : 
EVERTSK INS LINE; 
CADVERB_OPCODE)? 
EVENTSK_INS_USER; 
y CADVERB WSTRUCTION) ne ae 
EVERTSK_INS_EVRY; 
COTHERWISE): 
$DBG_ERROR( "DBGEVENT\EVENT_SHOW_CANCEL_SEMANTICS 20°); 


. TES ex 
END; 


} Process the /ALL adverb. 
CADVERB_ALL): 
SHOW_CANCEL_ALL = TRUE; 


} An invalid adverb Literal - yell ! 


COTHERWISE): 
$DBG_ERROR('DBGEVENT\EVENT_SHOW_CANCEL_SEMANTICS 30'); 


TES; 
END; 
f there are no noun nodes, set the All flag if th 
HOW command. Otherwise, make sure the command ki 
still) access, and process the address(es). 
«NOUN_NODE EQLA 0 


is is a 
nd is 


BEGIN 

-VERB_NODE CDBGSB_VERB_LITERAL] EQLU DBGSK_SHOW_VERB 
SHOW_CANCEL_ALL = TRUE; 

END 

ELSE 

BEGIN 

' Build duplicate event entries, one for each 

address found in the noun node List. 

WHILE TRUE DO 
BEGIN 


! Using the address's primary descriptor, get the address. 


1984 AX-11 Bliss-32 V4.0-742 Page 104 
1p-te 30771 88e 99:78i59 «— HoMeuG. She Sbece vent asc ean) 


; 360 725 4 ' 

; 360 7 § 4 PRIMARY = “NOUN NODE CDBG$L_NOUN_ VALUE] 

3 3604 To? & EVENT ENTRY LEVENTS$V break RDDRESS) = FALSE; 

; 3605 728 4 IF .EVENT_ENTRY FEVER T$B_CAD_TYPE Jat PEVENTSK_1 TYPE _BREAK OR 
3 ope f ? mene enter EVENTSB_CMD_TYPE] EQL EVENTSK_TYPE_TRAC 
: 3608 731 BEGIN 

; 3609 7 3 IF .PRIMARYCDBG$B_DHDR_TYPE] EQL DBGSK_PRIMARY_DESC 

; rat 5 4 6 THER cin 

; 61¢ 735 6 IF .PRIMARYCOBG$B_DHDR_KIND] EQL RSTSK_ROUTINE OR 
; 613 f $ 6 THEN RIMARY DBGSB-DHDR-KIND} EQL RSTSK-ENTRY 

: 619 , 8 6 EVENT_ENTRY CEVENTSV_BREAK_ADDRESS) = TRUE; 

; £18 740 é END; 

BB HEE ew: 

; 743 ; 

; es0 744 & IF NOT DBGSNGET ADDRESS(.PRIMARY, ADDRESS([OJ, ADR_TYP, 

: 36 é 745 § CIF .EVENT_ENTRY PEVENTSy _BREAK_ADDRESSJ~ 

: 36 746 S HEN 

Be MS ey 

> 3626 749 & FALSE) 

; 6 i 730 4 .MESSAGE_VECT) 

; 3 re 4 RETURN STSSK_SEVERE; 

: 3631 754 & 

; o32 755 4 EVENT_ENTRY CEVENTSL_ADDRESS] = .ADDRESS(O]: 

3 th 26 ‘ va OT .EVENT_ENTRY CEVENTSV “BREAK ADDRESS) 

: 3635 758 5 BEGIN 

; o36 739 5 IF DBGSIS_IT_ENTRY (ADDRESS (0) 

; 638 761 EVENT_ENTRY CEVENTSL_ADDRESS] = .ADDRESS(O) + 2; 
; 640 708 4 END; 

; é 765 4 

3 7 106 2 ; Save the event's primary. 

: 768 4 VENT_ENTRY CEVENTSL_PRIMARY) = .NOUN_NODE [DBG$L_NOUN_VALUE); 
3 et 769 ? EVENT AEN! DESC (.EVENT_ENTRY leventer PRIMARY], PRIMARY, DUMMY, FALSE); 
: 3648 771 

3 $3 ag ? : Now, get and save the VMS descriptor. 

: i Sten) °-4RLGTUNN lbgMenltnge PS wae 

: 33 Md 4 EVEN Ot sceveNtsA. wneeet his 
3 4 

3 55 778 4 

3 2$ 779 4 ' Point to the next noun node. 

+ 365 780 4 i 

: 3658 781 4 NOUN_NODE = .NOUN_NODECDBGSL_NOUN_L INK); 
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Hk 
7 

784 ! If there's more addresses, get an new event descriptor 

785 ! from permanent memory, copy the current one to it, and 

4 § } Link it to the working queue; otherwise, exit this loop. 

788 iF .NOUN_NODE NEQA 0 

789 THEN 

790 BEGIN 

791 

186 

79 ! Get another event descriptor, and copy the old 

Pee one into it. 

79 EVENT ENTRY = DBGSGET_MEMORY (EVENTSK_EVENT_DESCRIPTOR_SIZE); 
79 CHSMOVE (EVENTSK_EVENT DESCRIPTOR SIZE * 4, 

oe ~EVENT_QUEVE CL_GUEVE_FLINK], .EVENT_ENTRY); 
800 

Ht Link the new one into the working queue. 

80 INSQUE (.EVENT_ENTRY, EVENT_QUEUE); 

804 END 

805 

806 LSE 

807 EXITLOOP; 

END 

END; 
3 Now that we've built a working List of event entries, compare them to 
3 the Command Queue, showing or deleting existing entries that match new 


ones. 


For each new event entry, check the existing entries in the 
Command queue for any entries that match (command types, and 
addresses if the command type is an access type). 


So, while there are (still) entries on the working queue.... 


SHOWED_CANCELED_ANY = FALSE; 
WHILE, -CVENT QUEUE CL_QUEVE_FLINK] NEQA EVENT_QUEUE DO 


! Point EVENT_ENTRY to the first new event entry on the 
working queue. 


EVENT_ENTRY = .EVENT_QUEUE CL_QUEUE_FLINK); 


Point to the first and next existing entries in the Command Queue. 
QUEUE_ENTRY = .EVENTSCMD_QUEUE CL_QUEUE_FLINK); 
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3; 371 39 

3 f re For each existing entry... 

3 a7 § ra] SHOWED_CANCELED_ONE = FALSE; 

; 3720 4 WHILE [QUEUE_ENTRY NEQA EVENTSCMD_QUEUE DO 

: 3721 44 4 BEGIN 

3 oT ¢ 45 4 

ee re 4 

3 ¢ s¢ ? : Ignore ‘deleted’ entries that haven't been removed. 

3 37 $ rk 4 IF NOT .QUEVE_ENTRY CEVENTSV_DELETEDJ 

g oF. “9 4 THE 

; 3728 BEGIN 

; 3729 £26 

3; 3750 $2 

8 1 Sze Compare the command type with the existing one. 

3 SY 5 B36 IF .EVENT_ENTRY PEVENTSS.CmO TYEE EQLU 

3; 37 85 ~QUEUE-ENTRY CEVENTSB_CMD_TYPE 

3; 3735 858 5 THEN 

; 37 859 6 BEGIN 

3; 3737 860 6 

3; 3738 861 6 

; 3739 862 6 ! We found an existing entry of the right type, so 

3; 3740 863 6 i there is/are BREAK(S), TRACE(s), or WATCH(es) to 

3 3741 864 6 ' be checked. 

; rg 865 6 ' 

3: 374 ac8 6 SHOWED_CANCELED_ANY = TRUE; 

3: 3744 867 6 

3; 3745 868 6 

3; 3746 869 6 ! If the /ALL qualifier was used, the show or delete 
3; 3747 870 6 ' this entry. Otherwise, we've got more checking to 
3: 3748 871 6 | Osece 

3; 3749 a76 6 ! 

; 3750 873 6 IF .SHOW_CANCEL_ALL 

3; 3751 3874 § THEN 

3 Pee 14 4 SHOW_OR_DELETE_EVENT_ENTRY (QUEUE_ENTRY) 

3; 3754 B99 § ELSE 

: 3755 878 BEGIN 

3 736 44 7 

: 375 80 7 : 

3; 3758 3881 7 ' Compare the command kind of this existing entry 
; 138 HY and the new one. 

3: 3761 884 7 IF .EVENT_ENTRY AA ddh , Bia Bag EQLU 

: 376 85 7 -QUEVE_ENTRY CEVENTSB_CMD_KIND 

: 376 36 7 THEN 

3: 3764 8 BEGIN 

3 703 4 

: 76 390 The command kinds match. Select on the kind. 
: 3769 3 SELECTONE .EVENT_ENTRY CEVENTSB_CMD_KIND) OF 
: 3770 9 SET 

3; 3771 94 

3; 3772 95 


a PT SSCS Ry eigenen, cheats 
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; 3773 9 ' The command kind is access aad /WRITE, 

: 3774 9 ' /MODIFY, dg dag © or /RETURN). We now have 

3; 3775 9 ' to compare ne geereece r oI entries to 

5 a4 344 determine i s existing one must be deleted. 

; 377 901 CEVENTSK_KIND_ACC): 

3; 377 9 ¢ BEGI 

; 3780 903 9 LOCAL CODE_1,CODE_2; 

:; 3781 904 9 

3; 378 905 9 ' if user of the entries is _femcure or 

: 378 906 9 i /RETURN, we'll compare the ayte addresses, 

5 ree 90 2 i otherwise compare the two VM descriptors. 

3; 3785 908 i and delete the exisiting entry if they're 

3 ree 909 9 i the same. 

; 378 910 9 i 

; 3788 911 9 CODE_1 = .EVENT_ENTRY CEVENT$8_SUB_KIND]; 

; 3789 aig g CODE 2 = . QUEUVE_ENTRY EVENT$B8_SUB_KINDJ; 

; 3790 9135 11 If (TF (.CODE_1 EQLU EVENTSK_ACC_EREC) 

: 3791 914 11 OR (.CODE-1 EQLU EVENTSK_ACC_RTRN) 

3; 379 915 11 OR (.CODE_2 EQLU EVENTSK_ACC_EXEC) 

; 379 316 11 OR (.CODE_2 EQLU EVENTSK_ ACC “RTRN) 

: 3794 917 10 THEN 

; 3795 918 10 ~-EVENT_ENTRY CEVENTSL_ADDRESS] EQLA 

3 796 4 \} - QUEUE “ENTRY EVENTSL_ADDRESSJ 

3; 3798 $31 10 COMPARE tamara Ye ENTRY CEVENTSA_VMSDESC] 
: 3799 9 : 10 QUEUE"ENTRY CEVENTSA_VMSDESCJ) 
3; 3800 923 10 ) 

; 3801 924 9 THEN 

; 380¢ 925 9 SHOW_OR_DELETE_EVENT_ENTRY (QUEUE_ENTRY); 

3; 380 926 8 ND; 

3; 3804 44 : 

3; 3805 928 

3; 3806 36? 8 ' The command kind is instruction. Compare the two 
; 3807 930 8 : entries’ subkind, and delete the existing entry if 
: 4 33! ; ; they're the same. 

: 3810 9 8 CEVENTSK. KIND_INS): 

; 3811 934 CASE” .EVERT_ENTRY CEVENTS$B_SUB_KIND) 

3 aig 54 8 Enon EVENTSR_INS_CALL TO EVENTSK_INS_USER OF 

: B14 aH : fElewrsx. INS_CALL TO EVENTSK_INS_LINE): 

: B16 939 9 IF .EVENT_ENTRY CEVENTSB_SUB_KIND) EQLU 
3 a8 Bet 4 QUEUE. ENTRY EVENTSB_ SUB- KIND 

: 19 94¢ 9 SHOW. OR_DELETE_EVENT_ENTRY (QUEUE_ENTRY) ; 
: 1 944 : LEVENTSi INS_EVRY TO EVENTSK_INS_USER): 

3; 38 ¢ 945 BEG! 

$ Z 1 m hi. VEVENTER INS CEVENTSO.. SUB_KIND] EQLU 
: 5 948 1 EUE ENTRY HeveNT $9. SUB_KIND] EQLU 
3 § 3e9 1 oe Event RL INS_USER) 

; 3828 951 9 SHOW_OR_DELETE_EVENT_ENTRY (QUEUE_ENTRY); 
3; 3829 952 8 END; 


————————————— 
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END; 


Point to the next Command Queue entries. 
QUEUE_ENTRY = .QUEVE_ENTRY CEVENTSL_CMD_FLINK); 


0 953 TES; 
i 
g 9 § ' The access type is exception, so delete the existing 
2 ! entry. 
835 9 8 ' 
8 95 CEVENTSK_KIND EXC]: 
: +44 SHOW_OR_DELETE_EVENT_ENTRY (QUEUE_ENTRY); 
839 306 
2 2o7 The command kind is invalid = yell ! 
beg COTHERWISE): 
a7 ' Be $DBG_ERROR('DBGEVENT\EVENT_SHOW_CANCEL_SEMANTICS 40°); 
845 968 TES; 
846 969 
847 970 END; 
848 971 
849 97 END; 
850 97 
851 974 END; 
852 
853 
854 
855 
856 
857 
858 
859 


this entry wasn't shown or cancelled, announce the fact, but we 
d find one of this type. say we couldn't find this one. 


f 
i 
mee »SHOWED_CANCELED_ONE AND .SHOWED_CANCELED_ANY 
SIGNAL tees? mae -VERB_NODE COBG$B_VERB_COMPOSITE) OF 


EVENTSK_SHOW BREAK, EVENTSK_CANCEL_BREAK, 
EVENTSK-CANCEL_BREAK_EXC): 


DBGS-NOSUCHBPT 
CEVENTSK"SHOW TRACE, EVENTSK_CANCEL_TRACE): 


DBGS_NOSU HTPT; 
CEVENTSK-SHOW WATCH, EVENTSK_CANCEL_WATCH): 
=e DBGS_NOSUCHUPT ; 


IF 
THE 


Seas 


); 


: Remove this new entry from the working queue. 


REMQUE (.EVENT_ENTRY, EVENT ENTRY); 
DBGSREL MEMORY (,EVENT_ENTRY); 


SSSESSSSSs 


Seeess 
2 Arun 
Do Doo 
so p.-?--2-3 
we 


SLL 


O@ 


N13 
DRGEVENT 16-Sep-1984 AX=11 Bligs-32 v4.0-742 Page 109 
vOa=000 \e-$ep-1986 $o:16:59 — EeeuG. SRCDBGE VENT asst aoe) 


3 ae? ‘ 19 | If we couldn't find an entry of the right type, announce the fact. 
3 889 4 ig if NOT .SHOWED_CANCELED_ANY 

: 533 4016 SIGNAL (SELECTONE -VERB_NODE CDBGS$B_VERB_COMPOSITE) OF 
: 389 401 EVENTSK_ SHOW BREAK EVENTSK _CANCEL_BREAK, 
; 89% ‘01? EVENTSK AGANCEL ef L_BREAK_ 

; 396 4019 CEVENTSR SHOW TRACE, EVENTSE _CANCEL_TRACE): 
; 389 4021 CEVENTSR SHOW WATCH, EVENTSK_CANCEL_WATCH]: 
; 38 40 : DBGS$_NOWATCHES; 

; 3900 40 TES 

; 3901 4024 ); 

. 

: b4'¢ iu? We're done, bye. 

> 3906 4029 RETURN STS$K_SUCCESS; 

3 3907 2080 1 END; oa 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


54 4E 45 56 45 SC 54 4E 45 56 45 47 42 44 27 00109 P.ACD: .A \' NT\<92>\EVENT_SHOW_CA : 

54 oF G5 56 45 SC 54 GE 45 56 45 i i $$ H o0188 SCII \"DBGEVE 2>\EVENT_SHOW_CANCEL_SEMANT\ 
30 31 20 53 43 49 OO1FB <ASCII \ICS 10\ : 
54 4e 45 56 45 5¢ 54 4E 45 56 45 47 42 44 e7 99201 P.ACE: AgetT vis DBGEVENT\<92>\EVENT_SHOW_CANCEL_SEMANT\ ; 
45 53 SF 4¢ 45 43 4 41 43 SF 57 af i 33 3 00 10 : 
0 32 20 53 43 49 00223 sASCII \ICS 20\ : 
54 4E 45 56 465 SC 54 4E 45 30 i 47 42 44 27 $35 P.ACF: <AS \" DBGEVENT\<92>\EVENT_SHOW_ CAN MANT\ : 
45 “5 SF 4c 645 «43 (4E 041 «43 «SFOS? MY i 33 5 00 38 en SoS VENT SHOU CAEL, 9 : 
30 33 20 53 43 49 00248 ASCII \ICS 30\ ; 
54 4E 45 56 45 SC 56 GE 45 56 45 9 42 44 27 80 51 P.ACG: ASCII \*DBGEVENT\<92>\EVENT_SHOW_CAN MANT\ : 
45 5 SF 4c (45 25 4E 41 43 SF 57 GF ts 53 &f 2D so mapas tacit sn. ote ; 
54 4E 41 4D 0026F F 
30 34 20 53 43 49 00273 -ASCII \ICS 40\ : 

.PSECT DBGSCODE,NOWRT, SHR, PIC,0 

OFFC 00000 ENTRY DEGSEVENT SHOW. CANC L a MANTICS, Save R2.- ; 3497. 
R R5,R6,R 3 
B 00 9 ' EF 9€ 9002 MOVAB EVENT $cmb_0 Ove - at ; 
A 00 * EF 9E 000 MOVAB a AT ; 
39 00000006 0 3 0019 HOVA L SSIGnAL. R9 : 

18 AE 18 AE Se 1A MOVAB EVENT “QUEUE, EVENT_QUEUE : 563 

1 AE 1 Ar 9E 0001F MOVAB EVENT"QUEUE, EVENT QUEUE +4 : 356 

10 DD 34 PUSHL a : 3569 

000000006 00 01 FB 6 CALLS , DBGSGET_MEMORY : 


a > FS ee SCS PSPSPS SCS CSS SCS FSCS SCS FSS CS SSCS SSS SSCS "SSS PS eS se tS *S*S SS SCS "SS SCSCS SPSS BPrl srs rs rs se eres rs FT STs Se SS 
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#5 ae ece VENT ENTRY), 26$ 
#1, DBGSIS_IT_ENTRY 


#2, ADDRESS, 44(EVENT_ENTRY) 
(NOUN NODE) , 40(EVENT ENTRY) 


PRIMARY 
40(EVENT_ENTRY) 
#4, DBGSACOPY_DESC 
VARVE 
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#3, DBGSPRIM_TO_VAL 


V bu 
#12, 20(RO) 52 (EVENT ENTRY) 


8(NOUN_NODES, NOUN_NO 
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#1, DBGS$GET_MEMORY 
RO, EVENT ENTRY 
#64, @EVENT QUEUE, (EVENT 
(EVENT_ENTRY), EVENT_QUEU 
SHOWED_CANCELED_ANY 
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DEBUG. SRC JDBGEV 


38 
LIBSSIGNAL 
NT_ENTRY), EVENT_ENTRY 
i TRY 
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WED_CANCELED_ANY, 64$ 
#8, @VERB_NODE, RO 
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DBGE VENT 18-29-1984 00:59:1 AX=11 Bliss-32 v4.0-742 Page 1 
v04=000 12-808- 1382 99:72i8 DEBUG. SRC IDBGEVENT B32: 1 et 


; 398 8 1 } GLOBAL ROUTINE DBGSEVENT_CANCEL_ALL: NOVALUE = 

: 3911 40 5 1 ! FUNCTION 

3 818 4034 1! This routine cancels all eventpoints. 

; 391 4035 1! 

3; 3914 ¢ § 1 ! INPUTS 

3; 3915 4 1! NONE 

; 3916 4038 1! 

3; 3917 4039 1 ! OUTPUTS 

; 3918 4040 1! ALL command event entries are deleted from the command queue. 

; 3919 4041 1! 

; 3920 {R06 1 

3; 3921 404 BEGIN 

3; 39 ¢ 4044 LOCAL 

3 , Z thee EVENT_ENTRY : REF EVENTSEVENT_DESCRIPTOR; ! Event entry pointer 
3; 3925 docs 

3; 3926 4048 

3; 3927 4049 ! Starting at the head of the command queue, ‘delete’ the command 

; 3928 4050 i entries. 

; 44 4051 i 

; 39350 1026 EVENT ENTRY = .EVENTSCMD_QUEUVE CL_QUEUE =fLINKI; 

: 3931 405 WHILE” .EVENT_ENTRY NEQA EVENTS TSCM “QUEUE ~D 

; 938 4054 BEGIN 

3; 393 4055 

3 3934 ret 

3 tH rte 4 Ignore ‘deleted’ entries that haven't been removed. 

: 3937 4059 IF NOT .EVENT_ENTRY CEVENTS$V_DELETED) 

; 3938 4060 THEN 

3; 3939 4061 

; 3940 406 

: to} ane ; | If this is a BREAK, TRACE, or WATCH command, delete it. 

3 3908 4065 4 if (. gevent ENTRY CEVENTSB_CMD_TYPE) EQLU 

3; 359446 4 4 VENTSR_TYPE_BREAK 

3: 3945 4067 3 ) Ook 

3 3946 4068 4 (,EVENT_ENTRY CEVENTSB_CMD_TYPE) EQLU 

3: 3947 4069 4 EVENTSR_TYPE_TRACE 

3 5948 4070 3 ) OR 

3 3949 4071 4 ( EVENT_ENTRY ceventse. CMD_TYPE] EQLU 

3; 3950 4072 4 EVENTSR_TYPE_WATC 

3; 3951 40735 4 ) 

3; 395 4074 EN 

3; 395 4075 EVENT_ENTRY CEVENTSV_DELETED) = TRUE; * 
3 3954 407 

3; 3955 407 hepa 
; Be rsh Point to the next Command Queue entries. - 
; 3958 4080 EVENT_ENTRY = .EVENT_ENTRY CEVENTSL_CMD_FLINK); a 
3; 3959 4081 END; 

3 4082 END; 


H 16 
16-Sep-1984 00:59: AX-11 Bliss-32 v4.0-742 Page 116 
1ersee- 198s 99:73:s9 =—| oaNe BhSbecevent asses 7 29e 42) 


we eENTRY EVENT SCMD=6 cancel “ALL. Save R2 3: 4031 
6 00000000° EF MOVAB vent CMD- QUEUE, R 3 
3 MOVL CMD =2y UE, EVENT_ENTRY : 405 
MOVAB vents CMD- UEUE R1 : 405 
D CMPL EVENT ENTRY : 
ae BEQL 3 3 
rs 9 TSTB CEVENT_ENTRY) 3 4059 
7 ea enes eee | BLSS 3 
51 14 AO 9 MOVZBL (EVENT_ENTRY), R1 3; 4065 
oA 1 BEQL 3 
01 d 7 er Bt. A 3: 4068 
02 93 % CMPB R1, #2 ; 4071 
2 1 BNEQ 3$ $ 
17. + =Ad 80 F 8 BISB2 #128, 23(EVENT_ENTRY) 3; 4075 
50 60 D MOVL (EVENT_ENTRY),— EVENT_ENTRY ; 408 
09 1 BRB 1$ 7 4053. 
04 4$ RET 3 4082. 


; Routine Size: 52 bytes, Routine Base: DBGSCODE + 1939 


14 
DBGEVENT 1be§ 1984 00:59: AX-11 Bliss-32 V4.0-742 
vOe=000 14-Sep-19 4 ? teis3 DEBUG. SRC JDBGE VENT .832; 1 


; 4 #8 ; ! GLOBAL ROUTINE DBGSACTIVATE EVENTS: NOVALUE = 

3; 3964 i 5 1 ! FUNCTION ; 

; 3965 : § ! This routine activates all set events. 

5 369 20 8 1 ! INPUTS 

; 3968 40 1! NONE 

; 3969 4090 1! 

; 3970 4091 1 ! OUTPUTS 

3; 3971 4092 1! The events are activated, including the setting of breakpoints, the 
3 44 1832 : } setting of protections, etc. The exception Lists are also built. 
3 3974 4095 1 

; 3975 £038 BEGIN 

3; 3976 409 

; 3977 4098 LOCAL 

; 3978 4099 USERS_FP: REF BLOCK C,BYTE), 

; 3979 4100 EVENT ENTRY : REF EVENTSEVENT_DESCRIPTOR, ! Event entry pointer 
; 3980 4101 NEXT_ENTRY : REF EVENTSEVENT DESCRIPTOR, ! Event entry pointer 
: 3980 $106 PAGE_ENTRY : REF EVENTSPAGE_BESCRIPTOR; ! Page entry pointer 
; 398 4104 

3; 3984 4105 ! Turn off the TBIT flag, which will be set by any event(s) that need 
; 3985 4106 ! to use it.... 

; 3986 4107 ! 

3; 3987 4108 DBGSRUNFRAME CDBG$V_TBIT) = FALSE; 

; 3988 4109 

: 3989 4110 2 ‘ 

; 3990 4111 2 ! Point to the first Command Queve entry, and begin to process each entry 
; 3991 216 ! in turn, 

3; 399 411 ! 

3; 399 4114 USERS_FP = 0; 

3 3994 4115 EVENT_ENTRY = .EVENTSCMD QUEUE CL_QUEUE_FLINK); 

; 3995 4116 WHILE .EVENT_ENTRY NEQA EVENTSCMD-QUEUE CA_QUEUE_ENTRY] DO 

; 3996 4117 BEGIN 

3; 3997 4118 

3; 3998 4119 

; inee $199 Point to the next entry (in case we end up deleting this one !!! 
3 4001 4132 NEXT_ENTRY = .EVENT_ENTRY CEVENTSL_CMD_FLINK); 

; 400 41 

3 400 4124 

; tne a 5 } ‘Delete’ IGNOR entries.... 

3 $008 } $ o zivent satay CEVEN'TSB_CMD_TYPE] EQLU EVENTSK_TYPE_IGNOR 

3; 4008 41 § EVENT_ENTRY CEVENTSV_DELETED] = TRUE; 

; 4009 4130 

3; 4010 4131 

3 4011 41 § ' Delete or Activate this event. 

3 re 41 ‘ 

; 401 4134 IF .EVENT_ENTRY CEVENTSV_DELETED) 

3 4014 4135 THEN 

3 4015 41 § 4 BEGIN 

3 $016 41 4 

3; 401 4138 4 ! eeeeeSs] 

; 4018 4139 4 ! EVENTSK_TYPE_SSINT Event is put on Event List, when we see 


14 

DBGEVENT 18-Se -1984 00:59: AX-11 Bliss-32 V4.0-742 
vOe~ 000 12230871388 9 38:48 DEBUG. SRC IDBGEVENT .83251 
; 4019 ! DBGS$_SS_INT signal comes in cogeue interception routine is 
; 40 ' called, trigge by gf ay | Service Call). Bit 15 is set in 
: bsw in the FP for System service. When system service 
! returns, DEBUG catches Reserved Operand Fault, EVENTSK_TYPE_SSINT 
! is marked deleted. Now, we just about to take this event entry 
' off the Event List. 
! Check to see if we just got back from Reserved Operand Fault 

from intercept system service RET, if it is, remember FP. 


= 
oO 


WO OONOUSWN—O 


' saved 


to delete entry. 
' S/RET was built from step over the CA 4s SYSS$XXX entry, Since 
) on’ 


erand Fault from RET, so we d 


! 
' 
' 
' 
! 
! 
' 
; ° 
For we need to turn S/RET active entr 
' we already ty Reserved 
! want to do it again, so later on we can turn S/RET into normal 
step entry. 

I 


IF .EVENT_ENTRY CEVENTSB_CMD_TYPE] EQL EVENTSK_TYPE_SSINT 


Dl el ak el ee a 


Ww 
ie) 


USERS_FP = .EVENT_ENTRY CEVENTSL_USERS_FP 


oe 
SOOOoCooooooooooo 


SF 


3 4140 4 
; 4141 4 
3 1188 4 
3 4143 & 
; 4144 4 
3 4145 4 
3 4146 4 
3 4147 & 
3 o168 4 
3 4149 & 
; 4150 4 
; 4151 4 
$ 41 ¢ 4 
; 41 4 
3 4154 4 
; tie 
; 4157 & 
3 4158 4 USERS_FP = 0; 
; LETE_EVENT_ENTRY (.EVENT_ENTRY); 
4038 4139 4 DELETE EVENT_ENTRY (.EVENT_ENTRY) 
3 4040 4161 ELSE 
; EV -EVENT_ENTRY); 
£06) $16 DBGSACTIVATE_EVENT (.EVENT_ENTRY) 
3 404 4164 
3 4044 4165 ' Point to the next event and continue. 
3 4045 4166 ' 
3 rt 74 hh tf EVENT_ENTRY = .NEXT_ENTRY; 
: toc8 1199 | weeeeSs] 
; 4050 4171 ' Check to see if this the case we noted above. Turn S/RET into 
; 4051 oi%¢ ! normal Step entry. 
3 405 417 ' 
3 $227 oi%8 IF USERS_FP NEQ 0 
3; 4055 4176 4 BEGIN 
3 $328 rhta4 ? IF j EVENT ENTRY CEVENTS$B_SUB_KIND] EQL EVENTSK_ACC_RTRN 
3; 4058 4179 2 BEGIN 
3 ret £189 IF .EVENT_ENTRY CEVENTSB_CMD_TYPE] EQL EVENTSK_TYPE_STEPS 
3 4061 o18¢ : IF .USERS_FP EQL .EVENT_ENTRY CEVENTSL_USERS_FP) 
: toe t18e 2 
3; 4064 Ht Fs 2 
3 4066 £136 ; Change it to regular step entry. 
: 406 4188 6 BEGIN 
: -EVENT_ENTRY CEVENTSV_ Zl 
4068 t189 6 IF .EVENT_ENTRY CEVENTSV_STEP_BPT) 
: 1090 t194 5 THEN EGIN 
3 4071 4136 7 EVENT_ENTRY CEVENTSV_STEP_BPT) = FALSE; 
; 407 4193 7 EVENT-ENTRY CEVENTSB_CMD_RIND) = EVENTSK KIND INS; 
3 407 4194 7 EVENT“ENTRY CEVENT$B-SUB-KIND)] = .EVENT_ENTRY LEVENTSB_SAVED_SUB_KIND); 
; 4074 4195 g END; 
; 4075 4196 END; 


K 14 
1ecSep-1986 2:16:58 EDeBuG. SRC SoaGEvE 


oct 


up ,PAGEAENTRY = .PAGE ENTRY CEVENTSL_PAGE_FLINK); 
END; 


! If we are skipping ACCVIO and WATCHES, T-bit over the cause. 
(just had a accvio from the instruction write to the page that was — 
protected for watch pointing) or (just had a RET from Systerm Service). 


' 
' 
' 
' 
IF .SKIP_ACCVIOS OR .SKIP_WATCHES 
THEN 

BEGIN 


' About to TBIT over the instruction that evregeres a wetehonio’. 
nterrupted by Ss. 


FUN —OVOONOufewnr-- Oo 
yo? oF oF ar et et eet eh”, bah eb ah ad eh el 
no 


We also have to make sure that we don't get 


DBGSRUNFRAME CDBG$V_TBIT] = TRUE; 
DBGSGV_CONTROLCDBGSV_CONTROL_T81T) = TRUE; 


= 
Ooo 


; 407 $132 4 END; 

; 407 41 END; 

; 407 41 END; 

: 08 d 0} 

: 4081 4 ! As long as were not skipping ACCVIO's, for each entry in the page 
; 408 4 i] : queue, write pretest the pose described. If we ARE Skipping then 
; 408 4204 ' we have to TBIT. 

: 4084 4205 ! weeeeSS] 

; 4085 4 $ ! If we are in the middle of the system service cycle, we don't want 
; 4086 4 ! want to put the protection back, for if we do, we may cause the 

; 4087 4 4 ' system service to fail again. Note: Some system service 

3; 40 4 ' calls system service, the aX: starts from the call in user program 
; 4089 4210 ! till this call is returned to the user program. During this time 
: tbey ? \} frame, we don't want to put protection back. 

; 409 4 ig IF NOT .SKIP_ACCVIOS AND 

3 £093 ‘ 1$ . NOT .DBG$GB_SET_WATCH_FLAG 

; 4095 4216 BEGIN 

3 4096 46217 PAGE ENTRY = .EVENTSPAGE QUEUE CL_QUEUE_FLINK]; 

; 4097 4218 WHILE .PAGE_ENTRY NEQA EVENTSPAGE_QUEUE DO 

; 4098 4219 4 BEGIN 

3; 4099 4 $9 4 LOCAL 

; hy 5 : 1 ? ADDRESS : VECTOR (2); ! Address range for protect 
3 $106 4 : 4 ADDRESS [0] = .PAGE_ENTRY PEVENT SL Paes Aone ss 3 

3 0 4224 4 ADDRESS (1J = .PAGE_ENTRY CEVENTS$L_PAGE_ADDRESS); 

3; 4104 P 4225 4 IF NOT SSETPRT (CINADR = ADDRESS 

3 05 P 4226 4 PROT = PRTSC_U 

Z oe P : 4 : oer = PAGE_ENTRY CEVENT$B_PAGE_PROTECTION] 
3; 4108 4 $3 4 THEN 

; 09 ? ? 2 SIGNAL (DBG$_NOWPROT) 

3 4 3 4 

: 4 3 

3 4234 

3 ? 5 

3 4 $ 

$ 4238 

3 4239 

: 4240 

3 : 1 

3 4 j 

3 4244 

: 4245 

: 4 

5 4 

$ 4 

5 4 

3 & 

5 4 

s 4 
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16 | 
18-Sep-1984 00:59:1 AX=11 Bliss=32 V4.0-742 Page 120 
1ensee= fone 99:33:89 = YaNe hE Bhi DBGEVENT.B32;1 29013), 


ONE WO 


OOFC 0000 -ENTRY DBGSACTIVATE_EVENTS, Save R2,R3,R4,R5,R6,R7 ; 4083 
7 90000006 00 9E 0002 MOVAB DBGSRUNFRAME?68, R7 : | 
: 0000000' EF 9€ 000 MOVAB SKIP_ACCVIOS, R : | 
0000000" Fr H 019 MOV EVENTSCMD_QUEUE, RS : 
5 8 f 01 SUBL # P : 
& 10 8A iA BICB2 #16, DBGSRUNFRAME+68 + 4108 | 
53 04 00010 CLRL USERS_FP + 4114 
52 65 00 Go01F MOVL — EVENTSCMD_QUEUE, EVENT_ENTRY : 4115) 
5 6 ; é 1$ MOVAB EVENTSCMD QUEUE . 0 t 4116) 
50 ee o Bn 3 aa GYENT_ENTRY, R : 
54 62 00 $0 A MOVL EVENT ENTRY), NEXT_ENTRY : $138 
05 14 A 1 00 D CMB gOCEVERT ENTRY), #5 : 4127) 
17 A2 80 &8F as 0083 BISB2 #128, 23(EVENT_ENTRY) : 4129 | 
17 Ag 95 00038 2$ TSTB g3 (EVENT ENTRYD z 4134) 
17 18 00038 BGEQ $ : 
06 14 a2 1 9003p CMPB - esas seme, #6 > 4154) 
53 24 bo 90045 MOVL 36(EVENT ENTRY), USERS_FP + 4156) 
53 04 $0049 3$: CLRL USERS_FP 3: 4158) 
52 DD 00048 4$: PUSHL EVENT ENTRY : 4159) 
0000v CF 01 FB 00040 CALLS #1, DELETE_EVENT_ENTRY : 
07 11 00052 BRB Ab > 4134) 
52 DD 00054 5$ PUSHL EVENT_ENTRY + 4162 | 
0000v CF 01 FB 00056 CALLS #1, DBGSACTIVATE_EVENT 3 
52 54 00 00058 6S: MOVL § NEXT_ENTRY, EVENT_ENTRY : 4167) 
53S 00056 TSTL USERS_FP : 4174. 
CO 13 0006 BEQL =s«d18 ; | 
04 16 Ae 9 00062 cHPB #2 (EVENT ENTRY), a : 4177 
03 14 A2 91 90068 CMPB =s-s- 20(EVENT_ENTRY), #3 : 4180 
B4 12 0006C BNEQ 1$ ; 
24 = A2 53 01 O006E CMPL =~ USERS_FP, 36(EVENT_ENTRY) : 4182 
AE 12 000 BNEQ =‘ : 
19 =A 0 7 00074 BBC #2, 25(EVENT_ENTRY), 1$ > 4189 
19 A 04 8A 90079 BICB2 #4, 2S(EVENT-ENTRY) ; 419¢ 
15 A 01 90 0007D MOVE #1. 21(EVENT ENTRY) : 419 
16 =A 18 A290 1 MOVB 7 (EVENT ENTRY), 22 (EVENT_ENTRY) > 4194 
9A 1 BRB > 411 
49 66 3 90 7$: BLBS § SKIP_ACCVIOS, 11$ : 421 
3 FD AS CE BLBS DBCScB SET_WATCH_FLAG, 10$ + 421 
30 a> pO 0 i MOVL EVENTSPAGE“QUEUE; PAGE_ENTRY ; gt 
5 A E ; 8$: MOVAB EVENT SP AGE OUEUE. RO : 421 
50 32 p| 0 9 CMPL PAGE_ENTRY; R 3 
O9A BEQL ; | 
73 08 A2 D 9 MOVL (PAGE_ENTRY), ADDRESS : 4223. 
04 AE : A p A MOVL (PAGE ENTRY). ADDRESS*+4 3 4224. 
E Ad 9F OOOA PUSHAB 14(PAGE_ENTRYS : 4228 | 
F bb Aa PUSHL 5 ; | 
—E 7C QOOAA CLRQ. = (SP) ; 
10 AE OF OOOAC PUSHAB ADDRESS ; 


M14 
DBGEVENT 16-Sep-1984 00:59: AX-11 Bliss-32 V4.0-742 
vitae 1o-g08=} 382 90:78:48 YoEBUG. SRC DBGEVENT.832;1 
000000006 00 d FB a CALLS ns gee 
000284c4 &8F dD 0008 PUSHL #165060 
000000006 00 or re BF CALLS ai. LIBSSIGNAL 
52 63 00 cB 9$: MOVL (PAGE ENTRY), PAGE_ENTRY 
04 ry H. 6 CD 10$:  BLBS  SKIP_ACCVIOS, 11$ 
A 04 Ab 0000 BLBC IP“WATCHES 
67 1 : 9904 11$ 1 $82 , DBGSRUNE RAME +68 
000000006 00 04 é 9007 nn 188 #4, DBG$GV_CONTROL+1 


3; Routine Size: 223 bytes, Routine Base: DBGSCODE + 196D 


N14 

16-Sep-1984 00:59: AX=11 BLigs-32 v4.0-742 Page 122. 
vos-000. 1e=8ep-1984 12:16:55 : sats 
) 


7 
-Sep-1984 12:16: DEBUG. SRC JDBGEVENT .832;1 


$ re ; : 2 } GLOBAL ROUTINE DBGSACTIVATE_EVENT (EVENT): NOVALUE = 
2 4135 4 33 1 | FUNCTION 
3 41 4 § 1! This routine activates an event. Included in this action is the 
3: 41 4257 1! building of a Linked List for each exception type used to implement 
3; 4138 4 28 1 any event: ®8PT, TBIT, and ACCVIO. 
: e120 4 00 i i INPUTS 
3 rere : $ : EVENT : Pointer to an event entry. 
: t1e8 4 8 1} ouTPUTS 
3 41446 4264 1! The event is activated, including the og bay Ae: breakpoints, the 
3; 4145 4265 1! setting of protections, etc. The exception lists are also built. 
3; 4146 4 $8 1! 
Mg ag | 
> 4149 4269 g MAP EVENT : REF EVENTSEVENT_DESCRIPTOR; ! Event entry pointer 
; 4150 4270 BUILTIN PROBER; | 
; 4183 4 5) LOCAL | 
: 4138 4 8 ADDRESS 
> 4154 4274 AT_LIBSIGNAL, ! Flag 
3; 4155 4275 CACL_FRAME: REF VECTORC,LONG), ' Save part of the FP 
3: 4156 4276 IGNOR_ENTRY : REF EVENTSEVENT_ DESCRIPTOR, ! Event entry pointer 
: 4157 4277 EVENT_ADDRESS : REF VECTOR C, orig. ! Event byte address 
; 4158 4278 USERS FP : REF BLOCK C, BYTE), ' User's current FP 
: 4159 4279 a i Return PC 
: 4160 1580 2 STATUS ' Status value 
: 4161 4281 : USERS_PC: REF VECTORC.BYTE); i Users current PC 
: e168 1588 ! Case on the kind of event entry, to determine whether how to activate 
3 28s : rf the entry. 
> 6166 4286 CASE .EVENT CEVENTSB_CMD_KIND] 
; rhe 4 : a FROM EVENTSR KIND ACC TO-EVENTSK_KIND_EXC OF 
: 4169 4289 CEVENTSK_KIND_ACC): 
ae ge 
; $176 ? ; Case on the access sub-kind.... 

: 417% 429% CASE .EVENTCEVENT$B_SUB_KIND] 

: 4175 4295 FROM EVENTSK_ACC_READ TO EVENTSK_ACC_RTRN OF 

2 $126 429 SET 

: tipe 1598 

3 4179 4999 CEVENTSK_ACC_READ): 

; 4180 4300 3 

i nt? 

; £188 4 08 CEVENTSK_ACC_WRIT): 

3: 4184 4304 3 

g elk? ? 05 

: cis? 6307 CEVENTSK_ACC_MDFY): 

: £189 £309 . 
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! Execution Access means that we've got to put a BPT 
instruction at the address indicated. 


CEVENTSK_ACC_EXEC): 
BEGIN 


Get the event's address. 
EVENT_ADDRESS = .EVENT CEVENTSL_ADDRESSJ; 


! Next, copy the opcode at the event's address into the 
event entry for safe keeping. 


EVENT CEVENTSB_OPCODE] = .EVENT_ADDRESS [0]; 


! If the address we're to place a BPT is the current user 
! address, (meaning we're about to put a BPT where we're 
about to start), create a ignore-event instead.... 


1f EVENT ADDRESS EQLA .DBGSRUNFRAMECDBGSL_USER_PCJ 
BEGIN 


' Get a new event descriptor, and link it into the 
' command queve. Note that this entry is placed on 
' the HEAD of the queue, and should be encountered 
first !!! 


IGNOR_ENTRY = DBGSGET_MEMORY (EVENTSK_EVENT_DESCRIPTOR_SIZE); 
INSQUE (.IGNOR_ENTRY, EVENTSCMD_QUEUE); 


PROPUPOPONIPINININIPININININININININININININININININININ 2 2 oe a 
IAAI POPUDININIPINPNIDD 2 9 9 OS MODOC DTOOCOOCOOOOOOOOOOO 
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' Setup this entry to be a ignore-event. Note that 
! we don't really need to initialize more than the 
' CMD_TYPE, including bent to the event entry 

' causing this mess, ‘cause this entry will just be 
deleted. However, maybe in the future.... 
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3 3 t 
3 ; IGNOR_ENTRY CEVENTSB_CMD_TYPE] = EVENTSK_TYPE_IGNOR; 
IGNOR-ENTRY CEVENT$B_CMD-KIND] = EVENTSK-KIND-ACC; 
235 3 IGNOR-ENTRY CEVENTS$B_SUB_K = EVENTSK_ACC_EXEC; 
H IGNOR ENTRY EVENTSV-ONCE_ ONLY] = TRUE; 
4 ; INSQUE1 (.IGNOR_ENTRY, .EVENT); 
9 
40 3 ' Turn on the TBIT flag so that we'll TBIT over the 
' next instruction, and return. 
“] 361 i i 
rk 5 DBGSRUNFRAME COBG$V_TBIT) = TRUE; 
44 64 DBG$GV_CONTROLCDBG$0_CONTROL_TBIT) = TRUE; 
rb 3? RETURN; 
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' BPT is okay, write a BPT instruction into that address. 
' Note that we won't actually do this if the original 
opcode was a 8PT. 

-EVENT CEVENTSB_OPCODE] NEQU BPT_INSTRUCTION 


if 
THEN 
1f NOT WRITE_OPCODE (.EVENT_ADDRESS, BPT_INSTRUCTION) 


BEGIN 
SIGNAL (DBG$_NOWBPT); 
RETURN; 
END; 
END; 
! Return Access means that we've got to put a BPT 
instruction at the address indicated. 
CEVENTSK_ACC_RTRNI: 
BEGIN 
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2 
2 
2 
2 
3 
2 
§ 2 Depending on the command type (STEP or otherwise)... 
2 9 IF .EVENT CEVENTSB_CMD_TYPE] EQLU EVENTSK_TYPE_STEPS OR 
2 9 EVENT CEVENTSB_CMD_TYPE] EQLU EVENTSK_TYPE_SKIPS OR 
2 3 -EVENT CEVENTSB_CMD_TYPE) EQLU EVENTSK_TYPE_SSINT 
2 9 THEN 
2 9 BEGIN 
2 0 ' If the save FP is 0, then we need to initialize 
§ mrt: } with the current one. 
2 440 USERS_FP = .EVENT SEVERTOL JERS FP 23 
2 4404 IF .USERS_FP EQLA 
§ 4405 THEN 
4406 BEGIN 
2 4407 USERS_FP = .DBGSRUNFRAME CDBGSL_USER_FPJ; 
2 4408 EVENT CEVENTSL_USERS_FP) = .USERS_FP; 
2 4409 CALL_FRAME = DBGSGET-MEMORY(5); 
7 4410 EVENT CEVENTSL CALL FRAME] = .CALL_FRAME; 
91 4411 CHSMOVE (20, .EVENTCEVENTSL_USERS_FPJ,.CALL_FRAME); 
3 rt a 
4 red! IF NOT PROBER (ZREF(O), ZREF(20), .USERS_FP) 
441 RETURN; 
3 1019 
98 4418 
99 4419 ' Check for the sree ial case where we have just 
4420 ' called LIBSSIGNAL or LIBSSTOP. The flag 
1 4421 ! AT_LIBSIGNAL will be set to true if we are 
208 o ¢ at LIBSSIGNAL or LIBSSTOP 
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: 4304 4424 4&4 USERS_PC = .DBGSRUNFRAMECDBGS$L_USER_PCI; 
; 4305 4405 4 AT_LIBSIGNAL = FALSE; ts 
; 4306 44 § 4 
3; 4307 44 4 
3 4 58 44 8 4 ! Check for current PC being at one of these 
; 4309 44 4 ' locations. Here the locations we are checking 
3; 4310 4450 4 ' are the addresses of LIBSSIGNAL and LIB$STOP 
3 : 1 rr 1 ? } in the LIBRTL shareable Library. 
; 1318 44 Hl 4 IF (.USERS_PC EQL LIBSSIGNAL+2) OR 
> 4314 4434 5 (,USERS_PC EQL LIBSSTOP+2) 
$ rH ret 4 THEN 
: 4 16 4436 4 AT_LIBSIGNAL = TRUE; 
3 431 4437 4 
; 4318 4438 4 
3: 4319 4439 & ! Also check for the current PC being at the 
: 4320 4440 4 ' address of LIBSSIGNAL or LIBSSTOP if these 
; 4321 4441 4& ! were Linked into the users progres with 
3 $356 res | 4 ! /NOSYSSHR on the Link. In this case the 
3: 432 44435 4 ! Som pe show up in the GST and we remember 
; teSe ree : their addresses when we initialize the GST. 
: 4326 4446 4 IF (.USERS_PC EQL .DBG$GL_LIB_SIGNAL_ADDR+2) OR 
3 4327 4447 5 (.USERS_PC EQL .DBG$GL_LIB_STOP_ABDR+2) 
3; 4328 4448 4 THEN 
3 $388 4449 4 AT_LIBSIGNAL = TRUE; 
: 4330 4450 4 
3 4331 4451 4 
; $336 et 4 ! Also check for instruction at current location 
; 433 445 4 ' being a JMP to LIBSSIGNAL or LIBSSTOP. 
3: 4334 4454 & ! 
3; 4335 4455 4&4 IF PROBER(ZREF (0), 
: 4336 4456 4 ZREF (6), 
3 4337 4457 4 -USERS_PC) 
3; 4338 4458 4 THEN 
3; 4339 4459 5 
3; 4340 4460 5 IF (.USERS_PC 9 EQL %X°17") AND 
3: 4341 4461 g (.USERS_PCL1J] EQL 2x'FF") 
3 rt rt | 446 THEN 
3; 434 4463 6 BEGIN 
3 4344 4464 6 
3; 4345 4465 6 ! Get the jump address by adding the PC 
3: 4346 4466 6 ' value plus the 6 bytes for the 
; rt rt 4 4467 6 ! JMP instruction itself. 
3 4348 4468 6 ! 
3 4349 4469 6 CHSMOVE (4, USERS _PC[2}, ADDRESS); 
3; 4350 4470 6 ADDRESS = ADDRESS + ,USERS_PC + 6; 
3 4351 4471 6 IF PROBER(EREF (6), 
3 $326 4472 6 ZREF (4) 
3 435 4473 6 ADDRESS) 
3 4354 4474 6 THEN 
3; 4355 4475 6 ADDRESS = ..ADDRESS; 
34 2$ 4476 6 
3 435 447 § IF (., ADDRESS EQL LIBSSIGNAL+2) OR 
: 4358 447 (. ADDRESS EQL LIBS$STOP+2) 
3: 4359 4479 6 
3; 4360 4480 6 AT_LIBSIGNAL = TRUE; 
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3; 4 4481 5 END; 
3 4 44 § 4 END; 
; 4 44 4 
3 4 4484 4 IF .AT_LIBSIGNAL 
3; 4 4485 4 THEN 
3 4 44 ° BEGIN 
: 4 44 
3 4 4488 ! In this case, we do not want os “ys use 
3 4 4489 i the dirty-the-tbit a yp ned becau 
3; 4 4490 i LIBSSIGN L and LIBSSTOP mess with. the stack. 
3 4 4491 i So we revert to the temporary breakpoint 
3 : rep method. 
= 4 4494 RET_PC = .USERS_FPCSFSL_SAVE_PC); 
; 4375 4495 5 EVENT. EVENT ey “Step BPT] = TRUE; 
: 4376 4496 5 EVENT CEVENTSB_CMD RIND) = EVENTSK_K 
3; 4377 4497 5 EVENT CEV EN Teo SUB_KIND] = event "EVENTS. SAVED. SUB_KINDJ; 
: 4378 4498 5 IF EVENT CEVERTSB_ “SUB_KIND) EQL 
3; 4379 4499 5 THEN 
; 4380 4500 5 EVENT CEVENTSB SUB_KIND] = EVENTSK_ INS_EVRY; 
3 rh rt: 4501 5 ae EVENTSL_A ADDRESSJ = ,RET 
: 438 450¢ 5 EVENT CEVENTSB~OPCODE) = .(.RET PC)< 
: 438 4503 6 IF NOT WRITE *OPCODE. (.RET “pen aPT. INS TRUE TION) 
3 4384 4504 5 HEN 
3: 4385 4505 5 SIGNAL (DBG$_NOWBPT) ; 
3 4386 4506 5 TURN; 
3; 4387 4507 4 3 
; 4388 4508 4 
: 4389 4509 4 
; 4390 4510 4 ' Turn on bit 15 in the user's run- 
3; 4391 4511 4 ' frame to get a reserved-operand 
3 +338 $236 4 ! fault on the return. 
3; 439 4513 4 i 
3 4394 4514 4 MATCH_ sient _CALL_FRAME (EVENT); 
> 4395 4515 4 USERS-FP = [EVENT CEVENTSL_USERS_FPI; 
: 4396 4516 4 (USERS. FP CSFS$W_SAVE_PSWJ)215,1,0> = TRUE; 
3 4397 4517 4 END 
3; 4398 4518 4 
3; 4399 4519 4 
3; 4400 4520 4 ' This is a CBREAK! TRACEJ/RETURN to set up. 
3; 4401 4521 4 4 
3 440 45 ¢ 3 ELSE 
3; 440 45 4 BEGIN 
3 t288 4524 4 
3: 4405 4525 4 
3 4406 45 § 4 ' Get the event's address. 
3 4407 45 4 : 
3 4408 4528 4 EVENT_ADDRESS = .EVENT CEVENTSL_ADDRESS); 
3: 4409 4529 4 
3: 4410 4530 4 
3 4411 4531 4 ! Next, copy the opcode at the event's address into the 
5 red | $2 § 2 event entry for safe keeping. 
: 6414 4534 4 EVENT CEVENTSB_OPCODE] = .EVENT_ADDRESS (0); 
3: 46415 4535 4 
3; 66416 45 § 4 
3 4417 45 4 ' Jf the address we're to place a BPT is the current 
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user address, (meaning we're about to put a BPT 


where we're about to start), create a 


gnore-event 


instead.... 
EVENT_ADDRESS EQLA .DBGSRUNFRAMECDBGS$L_USER_PCJ 
BEGIN 


' command queue. Note t 


Get a new event coecr ipter and Link it into the 
at this entry is placed on 
the HEAD of the queue, and should be encountered 


} first ! 


IGNOR_ENTRY = DBG$GET_MEMORY 


INSQUE (.IGNOR_ENTRY, EVE 


' 
iF 


(EVENTSK AY yp DESCRIPTOR_SIZE); 
NTSCMB_QUEUE); 


CMD_TYPE, including ee to the event entry 
his entry will just be 

deleted. However, maybe in the future.... 

If we are at /RET .PC, then we setup a skip entry 

instead of ignore entry. 


-EVENT CEVENTSV_RET_AT_PCJ 


2 
DEBUG. SRC JDBGEV 


V4.0-7 
ENT .B3 


IGNOR_ENTRY CEVENTSB_CMD_TYPE] = EVENTSK_TYPE_SKIPS 

IGNOR_ENTRY CEVENTSB_CMD_TYPE] = EVENTSK_TYPE_IGNOR; 

IGNOR_ENTRY EVENTSB_CMD_KIND} = EVENTSK_KIND_ACC; 
EVEN KIND 


ENT$B_ SUB 
EVENT$SV_ONCE_ ONLY] = TRUE; 


INSQUE1 (.IGNOR_ENTRY, .EVENT); 


if 
THE 


ND; 
RETURN; 
END; 


Turn on the TBIT flag so that we'll TBIT over the 
next instruction, and return. 


- -EVENT CEVENTSV_RET_AT_PC) 


BEGIN 
DBGSRUNFRAME CDBG$V_TBIT) = TRUE; 
DBGS$GV_CONTROLCDBG$9_CONTROL_TBIT) = TRUE; 


Write a BPT instruction into that address. Note that 
we won't actually do this if the original opcode was 


a BPT 
F .EVENT CEVENTSB_OPCODE) NEQU BPT_INSTRUCTION 


4 
2 


2 
31 


Page 


1 
(1 


en 
-—~N 
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; 4475 4595 4 THEN 

3; 447 & 39 5 IF NOT WRITE_OPCODE (.EVENT_ADDRESS, BPT_INSTRUCTION) 

; 447 4597 & THEN 

3; 447 4 oS BEGIN 

3 447 459 SIGNAL (DBG$_NOWBPT) ; 

; 4480 4600 RETURN; 

3 4481 te53 4 : 

>; 448 46 ¢ END; 

: 448 460 END; 

; 4484 4604 TES; 

3; 4485 4605 

5 hy rh) 

3; 448 460 CEVENTSK_KIND_INSJ: 

>; 4488 4608 8 

3; 4489 4609 LOCAL OPCODE; 

3; 4490 4610 

> 4491 4611 OPCODE = .(. DBGSRUNF RAME CDOBGS$L -USER_PCJ)<0,8,0> 

3 ree ret : If stepping over and a) it's time to BPT or bs we WERE BPTing... 

s 4694 4614 iF -EVENT CEVENTSV_STEP_OVER] A 
3; 4495 4615 4 (EVENT CEVENTSV_ STEP _BPT) OR ADBGSOPCODES. STEP_OVERC ..OPCODE)) 

; 4496 4616 3 HEN 

3 4497 4617 4 BEGIN 

3; 4498 4618 4 

3 4499 4619 4 ! 2. and we're not already in the middle... 

; 4500 $959 4 ! 

; 4501 4621 4 IF NOT .EVENT CEVENTSV_STEP_BPT) 

3 $206 46 ¢ 4 THEN 

; 450 46 5 BEGIN 

3; 4504 4624 g IF (.OPCODE EQL %X‘°FA') OR (.OPCODE EQL %x'FB') 

3; 4505 4625 THEN 

3 4506 46 § 6 BEGIN 

3; 4507 46 6 

3; 4508 4628 6 ! This is a CALLS or CALLG instruction. We implement 

3; 4509 reat 6 ! STEP/OVER by @ stEPsIn wile tepedas ens alee sequence 

3; 4510 4630 6 i We do this by temporarily SoM the STEP event descriptor into a RETURN | 
3; 4511 4631 6 i event descriptor RK IND = ACC, SUB_KIND = RTRN). This causes us to dirty up 
3 t21¢ 46 § 6 i the call stack and get a a reserved” operand fault at the return. When we handle the | 
3 451 46 6 i ROPRAND then we change the return event back into a step event. We save the origin. 
3 $218 re : ? sub-kind field to enable us to do this correctly. 
; £218 46 § 6 EVENT Event sv. STEP a?! = = TRUE; 
3 451 46 6 EVENT CEVENTSL_ =USER RS_F 

3 $218 46 3 6 EVENT EVEN ENTSB_C RIND = EVENTSK K KIND_ACC; 

: 451 4639 6 EVEN VENTSB =SAvED SUB _KI EVENT CEVENTSB_SUB_KINDJ; 

3; 4520 4640 6 EVEN se gh TNO WEVENTSK_A ACC_RTRN; 

3 4523 4641 6 DBS SRUNE RARE pees? TBIT TRUE; 

3; 45 § 4642 6 fy 3 he CONTROL COBGST_ BONTROL _TBIT] = TRUE; 

3 45 4645 6 RETURN; 

3 4526 4644 g END 

3: 4525 4645 ELSE 

3; 45 $ 4646 6 BEGIN 

3 45 4647 6 

3; 4528 Pret 6 ' This is a isotype instruction. Get the address 

5 $2 9 rhc? ? } of the next instruction. 

3 4531 4651 6 EVENT_ADDRESS = DBGSINS_DECODE ( 
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74 4652 6 .DBGSRUNF RAMECDBGSL_USER_PCJ, 0, FALSE); | 
3 4 “ 46 j 6 = 8 

; 4534 4654 ° 

: 2 5 re 5 ? If the address is in system or P1 space... 

3 4 46 3 6 IF .EVENT_ADDRESS GEQA P1_SPACE OR 
; 4538 46 8 6 -EVENT_ADDRESS EQLA 0 
; 4539 4659 6 THEN 
; 4540 4660 6 
3 $24} 4661 6 
3; 4 ri} reed] 6 ! 4... then we're going to TBIT (‘cause we won't set a | 
$ $2 4665 6 ' BPT in P1 space or in system space). 

: 4544 4664 8 ! 

3: 4545 4665 BEGIN 

; $28 4666 7 

3; 454 4667 7 

; 4548 4668 7 ' Check to see if this is address 0 or we're stepping 

3 4549 4669 4 ! nosystem. If so = belch. 

; 4550 4670 ' 

3; 4551 4671 7 IF .EVENT CEVENTSV_STEP_NOSYSTEM] OR 

; $226 rea 4 of Om Poors EQLa 0 

3: 45546 4674 7 SIGNAL (DBG$_STEPINTO, 1, .DBGSRUNFRAMECDBGSL_USER_PCIJ); 
3; 4555 4675 7 
3; 4556 4676 7 

3; 4557 4677 7 ! We're TBIT'n now... 
; 4558 4678 7 ! 
; 4559 4679 7 DBGSRUNFRAME CDBG$V_TBITJ = TRUE; 
; 4560 4680 7 RETURN; 
3; 4561 4681 6 END; 
3 $205 4682 6 
3; 456 4685 6 
3 45646 4684 6 ! Otherwise, everything is hunky dory, so continue. We'll 
§ r+ Fi reed ° } Set up the address in the event entry for the BPT. | 
: 4367 4687 6 i Save the next address in to entry for the step's BPT. 
3 4569 4689 6 EVENT CEVENTSL_ADDRESS) = .EVENT_ADDRESS; | 
: 4570 4690 6 
3: 4571 4691 6 
; $276 4692 6 ! Flag that a stepping-into BPT is set. 
3; 457 46935 6 ! 
3 4574 4694 EVENT CEVENTSV_STEP_BPT) = TRUE; 

3; 4575 4695 END; 

3 £278 46 END 

3; 457 469 

F] $278 2008 

3 457 $8 ! We're in the middle of stepping over, but we've been 

: £280 4 ! interrupted, so continue.... 

3; 4581 4701 : 

; £256 47 ¢ 4 ELSE 

3 $28 rts ? EVENT_ADDRESS = .EVENT CEVENTSL_ADDRESS); 

3 4585 4705 4 

3: 45 47 4 

3; 45 4707 4 ! We get here when a) we're in the middle of a step/over (i.e, 

3; 4588 4708 4 ! something interrupted the step/over), or we're at the start 
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; 4589 4709 4 ' of one (i.e. at a CALL/JSB-type instruction), and we've got 
; 2 96 rat 2 ; the address set up in the event entry (see above). ° 

: 4 % at 4 i Next, copy the opcode at the event's address into the 

; ? 87 i BF ? : event entry for safe keeping. 

: 4595 4715 EVENT CEVENTSB_OPCODE] = .EVENT_ADDRESS (0); 

Be ie a 

: 4598 oit8 4 ' Finally, write a, BPT instruction into that address. 

; 4599 4719 & ' Note that we won 7 actually do this if the original 

3 pet's of Y : opcode was a BP 

: 460 4? 4 IF EVENT sovenren_sveusei NEQU BPT_INSTRUCTION 

: 4604 4724 5 IF NOT WRITE_OPCODE (.EVENT_ADDRESS, BPT_INSTRUCTION) 

: rere ‘3 Bg — BEGIN 

+ 4607 47 : 2 SIGNAL (DBG$_STEPINTO, 1, .DBGSRUNFRAMECDBGSL_USER_PC)); 
> 4608 4728 5 DBGSRUNFRAME COBG$V_TBITI = - {RY E; 

: 4609 4729 § EVENT CEVENTSV_STEP-BPT] = FALSE; 

: 4610 4730 5 RETURN; 

: 4611 4731 4 END; 

: 461 47 ; 4 END 

: tela t} 4 — 

: 4615 4735 ' We're not stepping over, or we aren't going to BPT, so we'll 
> 4616 4736 i TBIT. 

: rats t 5 4 5 

: 46619 4739 4 EVENT CEVENTS$V_STEP_BPT) = FALSE: 

+ 4620 4740 4 DBGSRUNFRAME COBG$V"TBIT) = TRUE; 

+ 4621 4741 END; 

+ 662 474¢ END: 

; rect thee 

: 4625 474s $ CEVENTSK_KIND_EXC): 

: 463? t3e9 $ TES; 

+ 4628 4748 1 END; 

OFFC 00000 SENTRY DBGSACTIVATE EVENT, Save R2.R3.R4,.R5.R6.R7.-; 4253. 
5B 000000006 00 9€ 0000 MOV DBGSRUN UNFRAME+64, R11 : | 
5€ 14 C2 000 SUBL : | 
56 04 Ac p MOVL ENT Pre + 4286 
59 14 A6 JE 0001 MOVAB (R65, RY : 

02 00 01 Ad BF 14 CASEB 1(R9), #0, #2 ; 
02¢4 O1EE 0006 019 1$: WORD 5 -1$,- ; 
ree 
04 00 02 a9 8F O001F 3: CASEB 2(R9) #0, #4 + 4294 
0008 0289 0289 0289 0024 3$: WORD © 418-3$,- 
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0066 0002¢ 41$-38,~ 
4$-33,- 
$3-38 
04 0002€ RET 
58 2c OA 06 OO2F 4$: MOVL  44(R6), EVENT_ADDRESS 
30 a6 $ 90 000 3 MOVE (EVENT ADDRESS), 48(R6) 
6B p} ? cMPL EVENT ADDRESS, SBGSRUNF RAME +64 
DD 0003¢ PUSHL #16 
000000006 99 gi FB 0 CALLS #1, DBGSGET_MEMORY 
9 p 04 OVL RO, IGNOR_ENTRY 
00000000" EF 4 INSQUE CLGNOR ENTRY), EVENTSCMD_QUEUS 
14 A? 05 80 004F OVW #5, 20TIGNOR_ENTRY) 
1g A7 03 0093 ove =so#3, ¢(1GN R-ENTRY) 
17, A? 4 88 0005 BISB2 #4. 23(IGNOR-ENTRY) 
os ee 
0000v CF 02 FB 5086 CALLS Is INSQUE1 
50 ."? Bus. ke iace 
03 % AO 91 9006¢ CMPB ss G@B( ROD, #3 
aE 13 000 BEQL 118 
6E 03 D0 90072 MOVL #3, OP 
x HB Bi, 
58 DD O007A PUSHL EVENT_ADDRESS 
000000006 00 e3 FB 9007¢ 6$ CALLS #3, DBGSWRITE_MEM 
0 0 ES 008 BLBS RO. 7$ 
O70 3) ee ng, |2OCaCTS 
03 69 91 OO08A 8$ CMPB sR), #3 
0D 13 0008D BEQL 
04 69 4 0008F CMPB «(ROD #4 
08 1 00092 BEQL 
06 69 91 00094 CMPB «(ROD ,, #6 
ot ne 
SA 24 Ab 00 90096 9$ OV Seine), USERS_FP 
SA F8 AB 5 OOA2 MOVL  § DBGSRUNFRAME+56, USERS_FP 
24 «Ab 3A D0 00A6 MOVE 7 ERS_FP, 36(R65 
000000906 00 gi F O0A CALLS #1, DBGSGET_MEMORY 
C Ab 0 008 MOVL CALL FRAME 60(R6) 
60 24 «Bb 14 008 move #2 7 @36(R6), (CALL_FRAME) 
6A 14 00 f a 108: PROBER #9, #20, (USERS_FP) 
0 ¢ ee | 
50 D0 3% 12$: ROVE DEGSRUNE RAME +64, USERS_PC 
51 000000006 ve 6 8 MOVAB LIBSSIGNAL +9, R1 
51 p ob? CPL RS_PC, R 
51 000000006 i D4 MOVAB LIBSSTOP+2, R1 
1 p O08 CMPL USERS PC, R1 
2 000DE BNEO 4 


Be Be Se Be Fe Ge Be Se Ge Be Be Be Se Ge Fe Ge Ge Ge Be Ge Se Se Se Be Be 


| K 15 | 
DBGEVENT 16-Sep-1984 00:59: AX=-11 Bliss-32 V4.0-742 Page 132 
v04- 19-308- 1382 9 33:89 DEBUG. SRC IDBGEVENT B32: 1 9a) 
5 1 00 000EO 13$:  MOVL. #1, AT_LIBSIGNAL 1 4436) 
51 000000006 66 o3 C1 Fe 14$:  ADDL3 4 DBGSGL | 18_SIGNAL_ADDR, R1 + 4446. 
1 ; D4 eB CPL : RS_PC, R : | 
51 000000006 99 g C} i ADDL3 #2, DBGS$GL | 18_STOP_ADDR, R1 3 4447. 
1 01 O00F CMPL USERS_PC, a : | 
6 if FB BNEG : 
52 1 p OFD 15$:  MOVL #1, AT_LIBSIGNAL + 6449. 
60 06 0 ‘ 100 16$:  PROBER #0, #6, (USERS_PC) + 4457. 
43 13 001 BEQL $ : | 
17 : 91 001 CMPB = (USERS_PC), #23 + 4460. 
i 010 BNEQ $ : | 
FF OF 01 AO 91 001 CMPB  =—s«A(USERS_PC), #255 + 4461 | 
3 13 011 BNEQ 19$ : 
04 =A 02 AO D 014 MOVL.  2(USERS_PC), ADDRESS + 4469) 
5 04 AE CO 0011 ADDL2 ADDRES + 4470 
06 AE 06 AO 9E 00118 MOVAB 6(RO), ADDRESS : 
04 BE 04 00 o¢ 2138 PROBER #9, wi, @ADDRESS 3 4473 | 
04 AE 04 BE DO 00127 MOYL_ § @ADDRESS, ADDRESS : 4475 
50 000000006 00 9€ 001 ¢ 17$:  MOVAB  LIBSSIGNAL+2, RO > 4477 | 
50 04 AE 01 001 CMPL ADDRESS, RO F 
0D 13 00137 BEQL =«'18 : 
50 000000006 00 9E 00139 MOVAB LIBS$STOP+2, RO : 6478 
50 04 AE D1 00140 CMPL ADDRESS, RO : 
03 12 BR ee BNEQ 19$ 3 
52 1 00 00146 18$: MOVL #1, AT_LIBSIGNAL + 4480 | 
20 2 €9 00149 198: BLBC AT_LIBSIGNAL, 21 + 4484. 
50 10 AA 00 o0186 MOVL 1 SERS FP), RET_PC 3 4494) 
19 Ab 04 88 00150 BISB2 » 25(RB) + 4495 | 
01 A9 01 90 00154 MOVB 1(R9) : 4496 
02 Ad 1B AB 90 00158 MOVB 7(R6), 2(R9) + 449 
04 12 0015p BNEQ : 4498 
02 a9 08 90 0015F MOVB #8, 2(R9) : 4500 
e Ab 0 DO 00163 20$:  MOVL RET_PC, 44(R6) : 4501 
0 Ab 69 90 00167 MOVE (RET PC), 48(R6) : 450 
08 AE 03 DO pois MOVL #3, OP : 450 
01 DD Olgr PUSHL 1 : | 
OC AE 9F 00171 PUSHAB OP : 
50 bo 00174 PUSHL RET_PC 3 
FFO3 31 00176 BRW 6$ ; 
56 DD 00179 21$ PUSHL R6 : 4514 | 
0000v CF 01 FB 0017B CALLS #1, MATCH_RIGHT. CALL_FRAME : 
5A 4 Ab 0 91 MOVL.  36(R6), USERS_“P > 4515 | 
05 AA 0 BF BB 00184 BIsB2 128, § (USERS-FP) 2 4316 | 
58 2c OA 00 a A 228 MOVL 44(R6), EVENT ADDRESS : 4528 
30 Ab 68 90 001 MOVE (EVENT ADDRESS), 48(R6) > 45 
68 58 D1 001 CMPL GYENT ADDRESS, SBGSRUNF RAME +64 > 4542 | 
41 12 0019 NEQ a ; 
10 DD O19 PUSHL #16 : 4553. 
000000006 9 gi FB 199 CALLS #1, DBGSGET_MEMORY F 
9 D O1A0 MOVL RO, IGWOR ENTRY ; | 
00000000' €éF 6 gE tA INSQUE TENOR ENTRY), EVENTSCMD_QUEUE > 4554 | 
0 14 A? ; 1AA MOVAB 20(IGNOR_ ENTRY), RO > 4567 | 
5 04 at D O1AE MOVL EVEN! R : 4565 | 
05 17 A 05 €1 0018 BBC #5, 28(R2), 238 : | 


aow 


1 
DBGEVENT 18-5 -1984 00:59: AX-11 Bliss-32 V4.0-742 Page 133 
Mivetita ere e= tobe 8itesss «| Eoeade.Skeisacevent esse: 9° 4a) 
60 90 00187 MOVB #4, (RO) 3 4567) 
11 OO1BA BRB : 
60 90 0018¢ 38: MOVB #5, (RO) : 4569 
01 AO 0400 8F : 1BF 26$: Ovw #1624, 1(RO) : 6571 
03 AO 4 C5 BISB2 #4, 3(RO) : 4573 
é DD 001¢ PUSHL + 6574. 
so0ny me Sie NS em eae Pe 
75 09 A2 88 Ft aig BBC a5. its ), 328 : 4580) 
4 001D RET : 4583) 
50 0 AC Bd 01D8 25$: MOVL EVENT, RO + 4594 
0 0 Ad 91 001D CMPB 0 s«GB(ROS, #3 : | 
01 12 OO1€ BNEQ  26$ : | 
04 OO1E RET ; 
OC AE 03 DO OO1E3 26$:  MOVL #3, OP + 4596 
01 DD 001E7 PUSHL #1 : | 
10 AE 9F OO1E9 PUSHAB OP : 
58 DD OO1EC PUSHL EVENT_ADDRESS : 
000000006 00 03 FB OOIEE CALLS #3, DEGSWRITE_MEM : 
01 50 E9 001F BLBC = RO. 278 : 
4 001F8 RET : 
00028484 8F DD OO1F9 27$:  PUSHL #165044 : 4599, 
000000006 00 01 FB OO1FF CALLS #1, LIBSSIGNAL : 
04 90206 RET : 4598 | 
51 6B DO 00207 28$:  MOVL #$DBGSRUNFRAME+64, R1 ; 4611 | 
50 61 9A OO20A MOVZBL (R1), OPCODE : | 
5g 18 ag 3 00200 MOVAB 24(R6), R + 4614. 
03 6 0 5 00211 BBS #3, (RO), 30$ : 
00BD 31 00215 298: BRW 9 : | 
| 7¢ 62 OA EO 00218 30$: BBS #10, (R2), 37 + 4615 
| F1 00000000" EF 50 €1 0021C BBC OPCODE, DBGSOPCODES_STEP_OVER, 29% : | 
| te OA €E0 00224 BBS #10, (R2) > 4621. 
QOO000FA 8F 50 D1 00228 CMPL © OPCODE, #250 3 4626 | 
09 13 0022F BEQL : 
000000FB sa 0 01 00231 CMPL QP CODE. #251 : | 
iE if 00 BNEO 3$ ; 
01 «A2 04 88 00 3A 31$ BISB2 #4, 1(R2) + 4636. 
24 Ab D4 0023E CLRL (R6) > 4637. 
03 A2 02 a9 90 00241 MOVB 2(R9), 3(R2) > 4639 | 
01. «Ad 0400 8F 80 00246 MOVW #1024, 1(R9) t 4638 
04 AB 10 8 024C 328:  BISB2 #16, OBGSRUNFRAME+68 > 4641 
000000006 00 04 0 20 BISB2 #4, DBG$GV_CONTROL+1 + 4642 | 
4 0025 RET > 4626 
ze C 0 28 33$:  CLRQ -(SP) : 4651 | 
51 DD A PUSHL 1 t 4652. 
| 000000006 0 03 FB 0 3 CALLS a3, DBGSINS_DECODE ; 
| 6 D 6 MOVL RO, EVENT ADDRESS : 
| 40000000 &F 58 D1 00266 CMPL VENT ADDRESS, #1073741824 : 4657 | 
| 04 1 0 6D BGEQU 34 : 
8 D oF TSTL EYENT ADDRESS > 4658 
18 1 1 BNEO 6 ; 
62 9 73 34%: STB (R2) > 4671 
e 7 BLSS ; 
: 03 Mi tsi EVENT_ADDRESS + 4672 
68 DD 6 7B 35$ PUSHL DEGSRUNF RAME +64 : 4674 
1 DD 00270 PUSHL @ : 


"15 
DBGEVENT 16-Sep-1984 00:59: AX-11 Bliss-32 v4.0-742 Page 134 
Maven ergee= she 99:73:89 =| Hoa Bh SSaceuent esos) 29¢ 14) 


00028063 8F DD 0027F PUSHL #163939 ; | 
000000006 00 os FB 3 CALLS #3 LIBSSIGNAL : snout 
3¢ as 5 bo 36S: MOVL EVENT_ADDRESS, 44(R6) + 4689. 
1 A ? os 81382 #4, 1TR2) : 4694 
58 aa 06 9 373: MOVL  44(R6), EVENT_ADDRESS : 2385, 
30 OA 6 6 8$: MOVE (EVENT ADDRESS) , 48(R6) + 4715 
0 30 ag 9 A CMPB ss GB(R6)T Bt t 6722) 
1 AG BEQL ©-_«4 18 : | 
10 AE 3D Ab MOVL #3, OP + 4726) 
1 gp AA PUSHL #1 3 
146 AE 9F OOCAC PUSHAB OP : 
58 DD OO2AF PUSHL EVENT_ADDRESS : 
000000006 00 Q FB 00281 CALLS #3, DBGSWRITE_MEM : 
22 0 €8 00288 BLBS : | 
68 DD 0 BB PUSHL DBGSRUNFRAME+64 : 4727) 
1 DD 00280 PUSHL : 
00028063 8F DD 002BF PUSHL #163939 : | 
000000005 00 03 FB 002C5 CALLS #3, LIBSSIGNAL : | 
04 AB 10 88 002CC BISB2 #16, DBGSRUNFRAME+68 : 6728. 
01 A2 04 BA 09 0 BICB2 #4, 1(R2) t 4729. 
04 0204 RET : 4736 
01 A2 04 8A 00205 39$:  BICB2 #4, 1(R2) + 4739 
04 AB 10 88 00209 40$:  BISB2 #16, DBGSRUNFRAME+68 + 4740. 
04 002DD 41$: _—s RET + 4768 


; Routine Size: 734 bytes, Routine Base: DBGSCODE + 1A4C 


PAD PPA 


=O OONAUE WN — O OONOUSWI—OO 


PR IWIWIWIWIWIPNNNONIMIWE BB RUE BEES EE A UIUIWIONONNUNUNUNINIIID) 2 2 2 


16-Sep-1984 AX-11 Bliss-32 V4.0-742 
1SoBen-1984 19:78 48 DEBUG. SRCIDBGEVENT .832;1 
LOBAL ROUTINE DBGSDEACTIVATE_EVENTS: NOVALUE = 


° 
i FUNCTION 

This routine deactivates all set events. 
i 

i 

i 

i 

' 


i INPUTS 
NONE 


OUTPUTS 
The events are deactivated, including the resetting of breakpoints, the 
resetting of protections, etc. 


BEGIN 

LOCA 
EVENT ENTRY : REF EVENTSEVENT_DESCRIPTOR, ! Event entry pointer 
PAGE_ENTRY : REF EVENTSPAGE "Bes CRIPTOR; ' Page entry pointer 


! As long as were not skipping ACCVIO's, for each entry in the page 
queue, un-write protect the page described. 


IF NOT .SKIP_ACCVIOS 
THEN 


BEGIN 
PAGE ENTRY = .EVENTSPAGE QUEUE CL_QUEUE_FLINK); 
WHILE. erase _ENTRY NEQA EVENTSPAGE QUEUE DO 


COCAL 
ADDRESS : VECTOR (2); ! Address range for protect 


ADDRESS f0} = »PAGE_ENTRY CEVENTSL_PAGE_ADDRESS); 
ADDRESS “INADR ENTRY EVENTSL PAGE ADDRESS); 


IF NOT SSETPRT ( ADDRESS, 
= PAGE “ENTRY CEVENTSB_PAGE _PROTECTION] 
THEN 
SIGNAL (DBG$_NOWPROT) 


ELSE 
im PAGE_ENTRY = .PAGE_ENTRY CEVENTSL_PAGE_FLINK); 


END; : 
: Deactivate the all events not ‘deleted’. 


EVENT ENTRY = .EVENTSCMD Queue CL_QUEUVE_FLINK); 
WHILE™ sEVENT LENTRY NEGA EVENTSCMD~QUEUE~CA_QUEUE_ENTRY) DO 


i NOT ~-EVENT_ENTRY CEVENTSV_DELETED) 


DBGSDEACTIVATE_EVENT (.EVENT_ENTRY); 
EVENT ENTRY = .EVERT _ENTRY. EVENTSL CMD: FLINK); 


DBGEVENT 
vOus060 


3; Routine Size: 


111 bytes, 


16 
18- -Sep-1984 0 59:19 AX-11 8 Bliss: -32 Vv 4 -0- 742 
14-Sep-1984 12:16: DEBUG. SRCJD BGEVEN .B32;1 
000¢ 0000 .ENTRY DBGSDEACTIVATE_EVENTS, Save R2,R3 
53 00000000' Ff 9 000 HOVAR EVENTSPAGE_QUEDE, R3 
3 8 C2 0090 SUBL2 #8, SP 
D 00000000" EF E Of BLBS SKIP _ACCVIOS, 3$ 
38 63 BO i MOVL  EVENTSPAGE_QUEUE, PAGE_ENTRY 
5 63 9E 00016 1$ MOVAB EVENT SPAGE QUEUE, RO 
50 3 D1 00019 CMPL = PAGE_ENTRY> R 
13 Ooit BEQL 3 
6E 08 A2 OD 1 MOVL (PAGE_ENTRY), ADDRESS 
04 AE 08 A2 D0 000 MOVL § 8(PAGE-ENTRY), ADDRESS+4 
7E 04 000 CLRL = = (SP) 
7E OE Ad 9A 000 9 MOVZBL 14(PAGE_ENTRY), -(SP) 
7E 7C 0002D CLRQ | =(SP) 
10 AE OF O00¢F PUSHAB ADDRESS 
000000006 00 : FB 00 2 CALLS #5, SYSSSETPRT 
0 0 .€ 003 BLAS RO 3s 
000284¢4 BF DD 0003c¢ PUSHL #165060 
000000006 09 01 Fs 00042 CALLS a. LIBSSIGNAL 
52 62 00 4944 2$ MOVL (PAGE_ENTRY), PAGE_ENTRY 
C6 11 O04E BRB 1$ 
52 DO} ©6—A3. DO 00050 3$ MOVL EVENTSCMD_ QUEUE. EVENT_ENTRY 
50 DO «AS. 9E 00054 4$ MOVAB EVENTSCMD > QUEUE . RO 
50 52 D1 00058 CMPL _—s EVENT_ENTRY, 
11 13 00058 BEQL 6s 46S 
17 a2 95 90050 TSTB gee ENTRY) 
07 19 9960 BLSS 3 
52 OD 90 62 PUSHL EVENT 
0000v CF Gi FB 00064 CALLS #1, D See SSCACTIVATE EVENT 
52 62 DO 00069 5$ MOVL (EVENT_ENTRY), EVENT_ENTRY 
£6 11 0006C BRB 4$ 
04 0006E 6$ RET 


Routine Base: DBGSCODE + 1D2A 
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Page 137 
14-Sep- 16:5 DEBUG. (16) 


; ces t50? ! GLOBAL ROUTINE DBGSDEACTIVATE _EVENT(EVENT ENTRY): NOVALUE = 

; 4689 4807 1 ! FUNCTION 

; 4690 4808 1! This routine deactivates an event. 

; 4691 4809 1! 

; 469 4810 1 ! INPUTS 

; 469 4811 1! EVENT_ENIRY : Pointer to an event entry. 

; 4694 t3i6 1! 

; 4695 4815 1 ! OUTPUTS ; 

; 4696 4814 1! The event is deactivated, including the resetting of breakpoints, the 
; 4697 4815 1! resetting of protections, etc. 

; 4698 4816 1! 

; 4699 4817 1 

; 4700 4818 BEGIN 

: 4701 4819 

; 470 t559 MAP 

3 rt, hth EVENT_ENTRY : REF EVENTSEVENT_DESCRIPTOR; ! Event entry pointer 
; 4705 4838 LOCAL 

: 4706 4824 EVENT_ADDRESS : REF VECTOR C, BYTE], ! Event byte address 
: 4707 4825 USERS FP : REF BLOCK C, BYTE), ! User's current FP 
; 4708 4826 STATUS; ' Status value 

3; 4709 rt tH 

3; 4710 4828 

3 4711 ret} 2 ! If this is an IGNOR entry, ignore it ! 

; erie 4830 § : 

: 471 4831 if .EVENT_ENTRY CEVENTS$B_CMD_TYPE] ZQLU EVENTSK_TYPE_IGNOR 

3 4714 ret] 2 HEN 

3 4715 48335 2 RETURN; 

: 4716 4834 2 

3 4717 4835 2 ] : 
; 4718 4836 § ' Case on the kind of event entry, to determine whether how to activate 
: 4719 4837 ! the entry. 

: 4720 4838 2 : 

3; 4721 4839 § CASE .EVENT_ENTRY CEVENT$B_CMD_KIND) 

3 £756 re 8 FROM EVENTSR_KIND_ACC TO EVENTSK_KIND_EXC OF 

3 4724 rire CEVENTSK_KIND_ACC): 

: 4725 484 

: 4726 4844 

3: 4727 4845 ! Case on the access sub-kind.... 

3 4728 4846 : 

3; 4729 4847 CASE .EVENT_ENTRY CEVENTSB_SUB_KIND] 

3; 4730 rer FROM EVENTSR_ACC_READ TO EVENTSK_ACC_RTRN OF 

3 4731 484 SET 

3 47 ¢ 4850 9) aes oe 

3; 47 4851 te 

> 4734 4 3g CEVENTSK_ACC_READ]: 

: Op8e 1884 ; ‘ 

; 0739 4855 } ee | 

> 473 4 36 CEVENTSK_ACC_WRIT): eo. 

3 473 485 ; wey 

: 4 & 28 

: 4 485 

; 4 4860 CEVENTSK_ACC_MDFY): 

: 4 4861 3 


18. ioe 
voe=000, ep=1986 12:16:58  EdeauG.SRcSbaGeveNt.ass;1 = PHN 


if (. styl ENTRY CEVENTSB_CMD_TYPE) EQLU 
EVENTSR._ TYPE_STEPS 


- eve VENT_ENTRY seyenTse.. CMD_TYPE] EQLU 
EVENTSR_TYPE_SKIPS 
(EV 


-EVENT_ENTRY CEVENTSB_CMD_TYPE) EQLU 


3 4744 1886 
> 4745 rth 
: 4746 4864 ' Execution Access means that we've got to replace a BPT 
3 4747 4865 i instruction at the address indicated. 
: 4748 4 96 
: 4749 486 CEVENTSK_ACC_EXEC): 
; o7e9 4868 BEGIN 
3; 4751 4869 
3 ret) 4870 
; 475 4871 ! Get the event's address. 
3: 4754 4 Le: : 
3; 4755 487 EVENT_ADDRESS = .EVENT_ENTRY CEVENTSL_ADDRESSJ; 
; 4756 4874 
3; 4757 4875 
; 4758 4876 ! Finally overwrite the BPT instruction with the original 
; 4759 4877 ! opcode into that address. Note that we will NOT do this 
; are rt fh : if the orignal is a BPT. 
3 £206 4880 IF .EVENT_LENTRY CEVENTSB_OPCODE] NEQU BPT_INSTRUCTION 
3; 476 4881 THEN 
3; 4764 P 488 : IF NOT WRITE_OPCODE (. en ADDRESS 
> 4765 P 488 -EVENT-ENTRY CEVENTSB_OPCODE) 
; 4766 4884 4 
3: 4767 4885 3 
3; 4768 4886 4 BEGIN 
3 4769 4887 4 SIGNAL (DBG$_NOWOPCO); 
3; 4770 4888 4 RETURN; 
: 4771 4889 3 H 
; 477 4890 2 END; 
3: 477 4891 2 
3 4774 4892 2 
3; 4775 48935 2 ! Return Access means that we've got to replace a BPT 
3; 4776 4894 2 ! instruction at the address indicated - or, if this 
3 4777 4895 2 ‘ is was a STEP command, turn of the dirty bit in the 
: 4778 4896 2 ' user's PSW. 
3 4779 4897 ! 
3; 4780 4898 CEVENTSK_ACC _RTRNI: 
3; 4781 4899 BEGIN 
3; 478 4900 IF — ENTRY CevENTsO_ CMD_TYPE] EQLU 
; 478 4901 3 VENTSK_TYPE_SSINT 
3: 4784 4902 3 
3; 4785 4903 4 BEGIN 
3: 4786 49 4 LOCAL BIT_15_CNT: REF VECTORC BYTE); 
> 4787 4905 4 BIT_15_CNT = sEVENT ENTRY CEVENTSL_FP_RET 
> 4788 4906 4 I “BIT_15_CNTLO) GEQ 1 THEN DBG$GB_SET_ WATCH Jing = TRUE; 
3 4789 4907 ND; 
3; 4790 4908 
3 4791 490 ; 
3: 479 Depending on whether this was a STEP command or not... 
$ 4 
3 4 
3 3 
$ 4 
3 4 
3 3 
. PY 4 


SELLE 
oowvowowowovovorvd 
tt at to 
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18-Sep-19 4 00:59:19 YAX=11 BLigs-32 40-742 Page 139 
14-Sep-1984 12:16:5 DEBUG. SRCJDBGEVENT .B32; 1 | (16) 
EVENTSK_TYPE_SSINT 
THEN 
BEGIN 


Turn off bit 15 in the user's 
runframe so we don't get another 
ROPRAND fault on the return. 


' 

i 

' 

USERS FP = EVENT ENTRY CEVENTSL_USERS_FPI; 
T o 


ODOODOOOOOOOOOOOOOOOOOO 


FS PSWWNANAWWinonorororonerononrn 


Sle el el el ek le le ee Se a a el Sek ele ee ek ek ak ek ee Se 
—OOONAOUES WN" OVONOULS WN Ow” 


3 4 

; 4 

; 3 

3 4 

; 4 

: 4 

: 4 

3 4 

3 4 

3 4 

; 4 S$ 

; 4B1¢ 4 F_ .USERS_FP NEQ O 

; 481 4 HEN 

3; 4814 2 BEGIN 

; 4815 MATCH_RIGHT_CALL_FRAME(.EVENT_ENTRY); 

: 4816 5 USERS-FP = [EVENT_ENTRY CLEVENTSL_USERS FP); 
; 4817 5 (USERS_FP CSFSW_SAVE_PSWJ)<15,1,0> = FALSE; 
3; 4818 4 END; 

3; 4819 4 END 

; +559 3 ELSE 

3; 4821 4 BEGIN 

; ta5§ 4940 4 

; 482 49 4 

3: 4824 4942 4& ! Get the event's address. 

3; 4825 4943 4 i 

3; 4826 4944 4&4 EVENT_ADDRESS = .EVENT_ENTRY CEVENTSL_ADDRESSJ; 
: 4827 4945 4 

: 4828 4946 4 

3 rth 4947 4 ! Finally, overwrite the BPT instruction with the 
: 4830 4948 4 i original opcode into that address. Note that we 
3 2833 rh ? will NOT do this if the orignal is a BPT. 

3; 4833 4951 4 IF .EVENT_ENTRY CEVENTSB_OPCODE) NEQU BPT_INSTRUCTION 
3 4834 4952 4 THEN 

3; 483 P 4953 4 IF NOT WRITE_OPCODE a avert foone 

; 4836 P 4954 4 -EVENT-ENTRY CEVENTSB_OPCODEJ 
3; 4837 4955 5 ) 

3; 4838 4956 4 

3; 4839 4957 5 BEGIN 

3 4840 4958 5 SIGNAL (DBG$_NOWOPCO); 

3 4841 4959 5 RETURN; 

3 re v4 | 4960 4 END; 

3: 484 4961 3 END; 

> 4844 496¢ END; 

3 4845 496 TES; 

3 4846 4964 

3 4847 4965 

3 4848 £266 CEVENTSK_KIND_INS): 

3 4849 496 BEGIN 

; 4850 4968 

3; 4851 4969 

3 $526 4970 ! If this step was stepping over (had a BPT set), remove the 
$ rtf 4971 ! BPT instruction. 

3 4854 497 : 

3; 4855 497 IF .EVENT_ENTRY CEVENTSV_STEP_OVER] AND 

3 $826 4974 $v_STEP_BPT) 


“EVENT-ENTRY CEVENT 
THEN 


vOs=000. 
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16-Sep-1984 00:59: AX-11 Bliss-32 V4.0<742 

182 380-1 984 ? 36:53 DEBUG. SRC IDBGEVENT 83251 
BEGIN 


Get the event's address. 

EVENT_ADDRESS = ,EVENT_LENTRY CEVENTSL_ADDRESSJ; 

Finally, overwrite the BPT instruction with the original 
opcode into that address. Note that we will NOT do this 
if the orignal is a BPT. 

-EVENT_ENTRY CEVENTSB_OPCODE] NEQU BPT_INSTRUCTION 


F 
HEN 
IF NOT WRITE_OPCODE (.EVENT_ADDRESS 
, EVENT ENTRY CEVENT$B_OPCODE) 


BEGIN 
SIGNAL (DBG$_NOWOPCO); 
RETURN; 


END; 
END; 


END; 


CEVENTSK_KIND_EXC): 


003¢ 00000 .ENTRY DBGSDEACTIVATE_EVENT, Save R2,R3,R4.R5 
55 000000006 00 9€ 00002 MOV DEGSWRITE_MEM, RS 
3E 0C C2 00009 SUBL2 #12, SP 
5 04 AC 00 0000C¢ MOVL EVENT ENTRY, R2 
05 14 A2 91 00010 CMPB O(R2), #5 
re 13 00014 BEQL 10$ 
00 5 Ad 8F 00016 CASEB gi (R2) #0, #2 
87 0006 00018 1$: <WORD 2$-1$,- 
11$-1§,- 
14$-1$ 
00 16 A2. 8F 900 1 a8: CASEB #2(R >, #0, #6 
OOAF OOAF 0026 3$: <WORD 14$-3$.- 
0027 0002€ 14$-3$.- 
14$-3$.- 
48-38,- 
6$-3$ 
04 00030 RET 
54 3c A pO 031 4$: MOVL 44(R2) EVENT ADDRESS 
03 A } 6 3 CMPB 0 s«G@B(R2). & 
79 1 BEQL 12$ 
6E 30 Ae 9a 00038 MOVZBL 48(R2), OP 
01 oD 0003F PUSHL #1 


DBGEVENT 
v04-000 


3; Routine Size: 


mr 
om 


214 bytes, 


04 AE 9F 004) 
54 DD 00044 
$5 03 FB 00046 
C 0 £9 0004 
4 0004C 
51 4 00040 
06 14 A291 00046 
11 12 0005 
51 06 0005 
50 2¢ AR BO 0005 
60 93 00098 
00000000" FF 54 90 ooose 
3 14 AZ 91 00066 
09 13 0006A 
‘ 04 14 AB 94 0006¢ 
O3 13 0007 
17 1 €9 0007 
53 24 £2 DQ 0007 
SA 13 00079 
52 DD 00078 
0000v CF 01 FB 0007D 
53 24 A2 DO 00082 
05 A3 80 BF 8A 00086 
04 00088 
54 ac AZ BO 0008¢ 
03 6 A2 91 00090 
3F 13 00094 
04 AE 30 A2 9A 000% 
01 DD 00098 
08 AE 9F 0009D 
Ag 11 00040 
18 A2 03 £1 OOOA 
19 A2 02 £1 OOOA 
54 ac Ag BO 000K 
03 6 A2 91 00080 
1F 13 000B4 
08 AE 30 A? 9A 00086 
01 DD 000BB 
OC AE 9F 0008 
54 DD 000C 
65 03 FB 000C 
0D 0 €8 000C 
ooozesec BF DD 000¢ 
000000006 00 1 FB 000cE 
04 0000 


Routine Base: 


DBGSCODE + 1099 


5$: 


6$: 


7$: 


9$: 


10$: 


11$: 


12$: 
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1984 00:59: AX-11 Bliss- 
1382 9 33:88 DEBUG. SRCIDB 
PUSHAB 
PUSHL EVENT ADDRESS 
CALLS #3, DgGSWRITE MEM 
BLBC = RO, «138 
fERL OR 
CMPB g0(R2), #6 
Cn 
MOVL  44(R2), BIT_15_CNT 
isi (B1T_15 CNTY 
MOVE = #1, DBGSGB_SET_WATCH_FLAG 
gree gine) 
CMPB g0(R2), #4 
cae 
MOVL § 36(R2), USERS_FP 
Pisti RO 
CALLS #1, MATCH_RIGHT_CALL_FRAME 
MOVL 36(R2), USERS_FP 
81 C82 #128, 5(USERS-FP) 
MOVL 44(R2) EVENT_ADDRESS 
ak GO +? ued Sig 
MOVZBL 48(R2), OP 
PUSHL #1 
Bra” 3s 
BBC #3, 4(R2), 14$ 
BBC #2. 25(R2). 14$ 
MOVL  44(R2), EVENT_ADDRESS 
ve tee 
MOVZBL 48(R2), OP 
PUSHAB OP 
PUSHL EVENT_ADDRESS 
CALLS ae DEGSURITE ER 
PUSHL #165052 
CALLS #1, LIBSSIGNAL 
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; ¢ 14 606 ! GLOBAL ROUTINE DBGSEXCEPTION_HANDLER(SIGNAL_ARG_PTR, MECHAN_ARG_PTR) = 

; Z +4! 008 ! FUNCTIONAL DESCRIPTION: 

: 489 5010 1! Exception analyzer cqt tog by the ty vector eucope on handler, 

: 4894 01) 1 which is @ MARS routine found in DBGSTART.MAR. The MARS routine 

> 4895 big 1! immediately resignals if the user program was not nine, Otherwise 
3; 48 5015 1! it saves the registers of the user program and disables ASTs for the 
; e744 ante } time that DEBUG is running. 

: 4899 2n18 iz. Then it calls this routine, where the exception is analyzed for the 

; 4900 281 1: type of exception. Breakpoint, trace, and AC(/IO traps are given 

3; 4901 16 1! special handling, which usually ends with control deine passed to the 
; 490 5019 1! user. If the breakpoint, trace, or ACCVIO —_ was illegal, then the 
3 490: 5020 1! exception is resignaled unless the user has asked for control on every 
5 pees 20 1 } exception. 

: 4906 50 5 Ss Some trace traps cause an interim halt that requires some action, but 
3; 4907 205¢ 1! doesn’t pass control back to the user. After checking the valid’t, of 
; rp 2082 } } these trace traps, the value SS$_CONTINUE is returned. 

: 4910 5027 1! After the exception is analyzed and it is determined that immediate 

: 4911 5028 1! eer ee ae or continuing is not desired, the user_proc routine is 

3; 491 2083 1! called. This routine accepts user commands either from prespecified 
3; 491 5030 1! action commands from breakpoints, or interactively from the terminal. 
3 4914 5031 1! Eventually, a command is given that either causes the user program to 
3 4915 2036 1! continue or DEBUG to exit. If the user program is to continue, the 

3; 4916 5033 1! value returned from user_proc is SS$_CONTINUE, and that value is 

: rp ate ebee : passed back to the MARS fandler. 

: 4919 2086 1! If an exception Seeumy Coring DEBUG processing, the exception handler 
: 4920 5037 1! is FINAL_HANDL, not this routine. 

Be BBL 

3 rhs +4 abet ' FORMAL PARAMETERS: 

> 4925 5042 1! SIGNAL_ARG_PTR = address of block that contains at least four 

3 4926 5045 1! longwords. The pertinent words are the exception 

3 4927 5044 1! name, the PC at the time of the #eception, and the PSL 
3; 4928 5045 1! at the time of the exception. The name is always the 
; rhs 2006 1! second longword, the PC and the PSL the next to last 
3 pits ooee : and last respectively. 

7 493 5049 1! MECHAN_ARG_PTR = address of block that contains five longwords. The 
3; 493 . 73 pertinent words are the saved RO and R1. They are in 
3 4934 51 1! the fourth and fifth longwords respectively. Neither 
3; 4935 2036 1! is used at this time. 

098 Ha 

: hts 2022 : : IMPLICIT INPUTS: 

+ 4940 2089 1! Some variable number of additional arguments may exist between the 

3 4941 338 1: exception name and the PC. Flags ind cating the validity of TBITs and 
3 494 059 1! Sreskeetats are referenced. The flag DBG$GB_RESIGNAL causes illegal 
3 494 060 1! exceptions to be resignaled if the flag is set to true. 

3 4944 061 1! 

3 4945 062 1! 
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; 4366 3 1°! IMPLICIT OUTPUTS: 

3; 494 64 1! 

+: 4948 65 1! The TBIT in the RUNFRAME PSL may be changed. 

3; 4949 B08 1! 

; 438) be : ROUTINE VALUE 

; 49 ¢ 039 1! 

; 495 070 1! SS$_RESIGNAL or SSS$_CONTINUE for resignaling and continuing 

; 4954 2053 1! respectively. 

; 4955 ie 1! 

; 4956 075 1! 

3; 4957 O56 1 ! SIDE EFFECTS: 

; 4958 eS 

; 4959 2078 1! Any number of things. 

: 4960 077 1! 

3; 4961 078 BEGIN 

3 rh | 079 MAP 

3: 496 080 MECHAN_ARG_PTR : REF BLOCK(,BYTEI, 

: 4964 5081 SIGNAL_ARG_PTR : REF BLOCKC,BYTE); 

; 4965 a0es BUILTIN PROBER; 

; 4966 508 LABEL scan; 

3; 4967 5084 LOCAL 

3; 4968 5085 EVENT : REF EVENTSEVENT_DESCRIPTOR, ! Event entry pointer 
3 4969 5086 LAST! : REF EVENTSEVENT_DESCRIPTOR, ! Event entry pointer 
3; 4970 5087 SKIPS_ENTRY : REF EVENTSEVENT_DESCRIPTOR, ! Skip entry pointer 
3 4971 5088 ACTIVE_EVENT, ! Event match flag 
3 497 5089 § EXCEPTION_TYPE, 

3; 497 5090 USERS_PC : REF BLOCK C, BYTE), 

3 4974 5091 2 USERS _FP : REF BLOCK C, BYTEJ, 

3; 4975 e008 2 PCO ; 

> 4976 509 ORIG T6IT, ! Original TBIT value 
3; 4977 5094 STATOS; 

3: 4978 5095 

3; 4979 5096 

3; 4980 5097 ! Save the original value of the TBIT. 

3; 4981 5098 ! 

3 498 2180 ORIG_TBIT = .DBGSRUNFRAMELDBGSV_TBITI; 

; 498 100 

3: 4984 5101 

3 4985 3198 ! Save the exception type (name); 

; £386 510 ‘ 

: 498 5104 EXCEPTION_TYPE = .SIGNAL_ARG_PTR CCHFSL_SIG_NAMEJ; 

3: 4988 5105 

3; 4989 2196 

3; 4990 1 ' Save the User's PC. 

3; 4991 5108 : 

3 499 5109 USERS_PC = .DBGSRUNFRAME CDBGSL_USER_PC]; 

3; 499 110 IF NOT PROBER(ZREF (0), ZREF (1) = OSER SPC) THEN OPCODE = 0 

> 6994 111 4 ELSE IF (((OPCODE = .¢.USERS_PC)<0,870>) GEGU Zx°FD") 

3 4995 116 5 7 tLe bY ZREF (3). UseRs-PC)) 

: 499% 11 THEN OPCODE = %X'100° + .(.USERS_PC)<8,8,0>3 

3; 499 114 

3; 4998 115 

3; 4999 118 ! If we got here via a TBIT, see if we're at one of the special DEBUG 
3 2000 1 ; locations. If so, just return SS$_CONTINUE. 

3; 5002 8119 If .EXCEPTION_TYPE EQLU SS$_TBIT 
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; 5003 120 THEN 

¢ 5004 121 BEGIN 

; 5005 1 ¢ F .USERS_PC EQLA DBGSPSEUDO_EXIT OR 

5 B08 1 eUSERS_PC E DBGSTERM_HANDLR OR 

; 500 124 -USERS_PC EQLA DBGSUSER Exit 0 

; 5008 125 ~USERS_PC EQLA PRIM HANDBL_ 

: 2 1 § eUSERS_PC EQLA DBGSPSEUDO_SS1 

; 5010 1 THEN 

3; 5011 1 8 4 BEGIN 

5 2018 1 4 DBGSRUNFRAME CDBG$V_TBIT] = FALSE; 

3; 501 130 4 DBGS$GL_OUTPRAB CRABSV_CCO] = TRUE; 

; 2014 131 4 RETURN” SS$_CONTINUE; 

; 5015 1 § ; END; 

5 2ni$ 51 

3; 501 2} 4 END; 

; 5018 135 

; 5019 5136 : 

; 5020 5137 ! If we got here via an Opcode Request.... 

3; 5021 5138 ! 

3 205¢ 5139 IF .EXCEPTION_TYPE EQLU SS$_DBGOPCREQ 

; 28s 5140 THEN 

3 5024 5141 BEGIN 

; 5025 216§ 

; 5026 514 

; 5027 5144 ! This signal is generated by the Library routine LIBSGET_OPCODE. 

; 5028 5145 ' It is used to inquire what the real instruction was before the 

; 2063 2128 : debugger replaced the instruction with a BPT. 

3 203) Ape (The emulator needs this capability). 

5 2038 5150 ' Note that the opcode involved was restored when we deactivated 

; 5034 5151 ' the events. This will have to be redone when we stop 

5 2032 2128 } automatically deactivating.... 

3; 5037 5154 DBGSDEACTIVATE_EVENTS(): 

; 5038 5155 -SIGNAL_ARG_PTR [12 0,32,0]) <0, 8, 0> = «(.SIGNAL_ARG_PTR (8,0,32,0]) <0, 8, 0>; 
> 5039 5156 DBGSACTIVATE EVENTS(); 

3; 5040 5157 RETURN SS$_CONTINUE; 

3: 5041 5158 END; 

j sneg 5159 

3: 504 5160 

3 5044 5161 ! weeeeSS] 

3; 5045 216¢ ! If we got here via System service interception... 

3 2006 516 ! Build a SSI enty on the Event List, if this system service calls from 
3; 504 5164 ! user program, and nobody else has turned on bit 15 in saved PSW in. 

: 5048 5165 ' System Service FP. (This means that TDOBG has seen this already, bit 
3; 5049 3196 ' 15 is set. now is SDBG's turn to examine this singal). Record the PC 
3 apae 1e } to report watch At, unprotected the pages... 

: 2026 199 IF .EXCEPTION_TYPE EQLU DBGS$_SS_INT 

; 505 170 THEN 

3 5054 171 BEGIN 

3; 5055 2176 LOCAL 

3 2038 17 apone ss : VECT fe) ' Address rgnge for protect 
3 505 17% BIT_15_CNT- 9EF VECTORC,BYTED, i was bit 15 turned on? 

: 3058 175 BIT“15"CNT_SSV: REF VECTORC.BYTEJ, | Are we called from System 
3; 5059 5176 ' Service's system service 
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; 5060 177 ' = call? 

; 5061 178 PAGE_ENTRY: REF EV wt"; weapeanaihe i Page entry pointer 

; ¢ 17 SIGARG: REF VECTORL,LONG ' Info. comes in with DBG$_SS_INT 
: 180 SSINTLENTRY: REF EVENTSEVENT_DESCRIPTOR,! SSI event entr 

; 5068 : 1 USERS_FP: REF BLOCKL,BYTEJ; ! System service call frame 
s O06 1 § 

; 506 184 ! Get arg. List. 

; 5068 185 ' 

: 2098 ! : SIGARG = SIGNAL_ARG_PTRCCHFSL_SIG_ARG1); 

; 200) i ' Caused from System service's system call, giaply ignore it. 

$ O76 189 ' note: this variable is a communication variable, it is seen 

g rth 2139 by DBG, TDOBG and SDBG. 

4 2078 2138 BIT_15_CNT_SSV = pA gneGt5: 

3 3078 2137 IF [BIT_15-CNT_SSVCOJ GTR 1 THEN RETURN SS$_CONTINUE; 

: 2078 5195 ! This type of entry is ei ready built for somebody else (caused from 
: 5079 5196 ! the same source, went through different level). Ignore it. 

; 5080 5197 ' note: this varialbe is a communication variable, it is seen 

; 5081 5198 ' by DBG, TDBG and SDBG. 

3 2086 5199 ' 

; 508 5200 BIT_15_CNT = .SIGARGC4); 

3 epee 2 4 IF [BIT_15_CNTCO] GEQ 1 THEN RETURN SS$_CONTINUE; 

: 5086 5 $8 ! We'll take it. Mark the cycle begins. Build event entry, place 
3; 5087 5204 ' it at the head of the event List. 

; 5088 5205 ! 

; 5089 2608 DBG$GB_SET_WATCH FLAS = TRUE; 

3; 5090 5207 USERS_FP =" .SIGARG(C3); 

: 5091 5208 EVENT = .EVENTSCMD QUEUE CL_QUEUE_FLINK); 

H rsa) 5209 SSINT_ENTRY = DBGSGET_MEMORY (EVENTSK_EVENT DESCRIPTOR_SIZE); 

3 509 5210 INSQUE (.SSINT_ENTRY, .EVENTCEVENTSL CMD_BCINKI); 

; 5094 5211 SSINT_ENTRY CEVENTSB_CMD_TYPE] = EVENTSK-TYPE_SSINT; 

3; 5095 2516 SSINT_ENTRY CEVENTSB_CMD_KIND] = EVENTSK_KIND_ACC; 

; 5096 521 SSINT_ENTRY CEVENTSB_SUB_KIND] = EVENTSK_ACC_RTRN; 

: 5097 a SSINT_ENTRY CEVENTSV_ONCE ONLY] = TRUE; 

; 5098 5215 SSINT_LENTRY LEVENTSL_EXC_FLI = .SSINT_ENTRY; 

; 5099 5216 SSINT_ENTRY CEVENTSL_EXC BLINK] = .SSINT_ENTRY; 

: 5100 5217 SSINT-ENTRY CEVENTSL_USERS_F d = ,USERS_FP; 

> 5101 5218 (USERS FP CSF$W_SAVE-PSWJ)~<15,1,0> = TRUE g 

; 3108 5219 SSINT_ENTRY CEVENTSL_SSV_COUNT) = .B1T_15_CNT_SSV; 
3 218 2339 SSINT_ENTRY CEVENTSL_FP_RET_CNT) = .BIT_15_CNT; 

; 5104 5221 SSINT-ENTRY CEVENTSL_USERS PC) = USERS_FPCSFSL_SAVE_PCJ; 

> 5105 5 3 WATCH7PC = USERS FPCSFSL Save PCI; 

; 3106 5 BIT_15_CNTCO) = .B1T_15_CRTLO) + 1; 

> 510 5226 If 7B1T_15_CNTCO) EOC 1 

; 5108 5 THEN 

: 5109 $ 4 BEGIN 

; 5110 4 PAGE_ENTRY = .EVENTSPAGE QUEUE CL_QUEVE_FLINK); 

3 gui) 3 4 WHILE PAGE ENTRY NEQA EVENTSPAGE QUEUE DO 

: 3118 0 ADDRESS FO} = .PAGE_ENTRY CEVENTSL_PAGE_ADDRESS); 

3 5114 1 ADDRESS = .PAGE-ENTRY LEVENTSL_PAGE_ADDRESS); 

3 5115 P § IF NOT SSETPRT (INADR = ADDRESS, 

3; 5116 ¥ PROT = .PAGE_ENTRY CEVENTSB_PAGE _PROTECTION] 
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THEN 
cL ge SJONAL (DBGS_NOWPROT) 
yp, PAGE-ENTRY = .PAGE_ENTRY CEVENTSL_PAGE_FLINK]; 


END; 
RETURN SS$_CONTINUE; 
END; 


} If this is an exception break or trace, we'll flag it later. 
DBGSGB_EXC_BRE_FLAG = FALSE; 


! Clear the event-match flag, to indicate that we have as yet found no 
matching event entry for this exception. 


ACTIVE_EVENT = FALSE; 


! Set the type-source flag, so that we will display the source Line at 
} the first opportunity. 


TYPE_SOURCE = TRUE; 


! Clear the STOP_USER yo set when a break is valid, or step is over. 
: This flag is usually set in PROCESS_EVENT when a break breaks, or a 
: step stops.... 


EVENTSB_STOP_USER = FALSE; 


Set the flag allowing user commands, i.e. no GO, STEP, EXIT. or 

CONTINUE commands have been executed yet. We have to do it here 

in case there are no DO's evaluated, since we test it later.... 
BGSGB_TAKE_CMD = TRUE; 


' Deactivate all events. This will most ram be changed to take 
advantage of not HAVING to turn them all off, but later, LATER ! 


DBGSDEACTIVATE_EVENTS (); 
LF EXCEPTION, TYPE EQLu $s$_peBUG 


N 
BEGIN 


This is the phony way into the user control. This exception name 
is passed by the DEBUG startup routine, and by the final handler 
when an exception generated in a user progres has not been dealt 
with by any user handlers (and so has been reported by the DEBUG 
final handler), when the user is passed control in order to fix 
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' up the condition that caused the problem. 


1 
5 


i we'll act as though a BREAKpoint was encountered. 


VENTSB_STOP_USER = TRUE; 
CTIVE EVENT = TRUE; 


' 
i 
i 
i 

E 

A 

E 


: If the user program has completed, cancel any pending STEP events. 


IF _,DGSRUNF RAMECDBGSL_USER_PCJ EQL 0 


BEGIN 

EVENT = EVENTSCMD_QUEUECA_QUEUE_ENTRY); 

WHILE TRUE DO 
BEGIN 

ENT = .EVENTCEVENTSL_CMD_FLINK] 


EV : 
IF .EVENT EQLA EVENTSCMD QOEVECA_QUEUE_ ENTRY] THEN EXITLOOP; 
IF ( EVENTCEVENTSB_CMD_TYPE] EQL-EVENTSK_TYPE_STEPS) 


N 
EVENTCEVENTSV_DELETED] = TRUE; 
END; 
END 
ELSE 
BEGIN 
Based on exception name, handle the exception.... 
SELECTONE .EXCEPTION ° “PE OF 
SET 
CSS$_ROPRAND ,SS»_vEBUG,SS$_BREAK ,SS$_TBIT): 
1F~(. EXCEPTION TYPE NEQ SS$ DEBUG) “OR 
THE ee ney CONTROL DBG$V_CONTROL_STOP] 
BEGIN 


exceptions DEB 


! 
i 
: are treated specially here. 
i 
i 


examine entries unt : 
a) we're at the actual end of the queue, or 


This is because process 
then want to ignore.... 


AST] = .EVENTSCMD_QUEVE CL_QUEUE _BLINK); 


L 
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A BPT or TBIT gets us here. These are two of the 
G uses to make events happen, and so 


Point to the eureent Seu entry on the queue. 


b) we've looked at the ast entry we knew about when we started. 
ng a DO might add entries that we 


mn 
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om 


' For each event entry in the queue, check to see if it is 
active.... 


EVENT = .EVENTSCMD QUEUE CL_QUEUE_FLINK]; 
WHILE EVENT NEQA EVENTSCMD_QUEVE CA_QUEVE_ENTRY] DO 


Make sure that the entry isn't deleted but not removed.... 


1 43 4 

g 39 
5234 5 af 4 
5 i 5 26 4 
3539 Be, 
5238 5355 : 
5239 5356 
5240 5357 5 } 
5241 5358 5 IF NOT .EVENT CEVENT$V_DELETED] 
5 eg : 59 5 THE 
524 60 6 BEGIN 
5244 5361 6 
5245 é 6¢ 6 
2se$ 2307 ° If this entry is to be IGNORed.... 
2se8 5365 6 IF .EVENT CEVENTSB_CMD_TYPE] EQLU EVENTSK_TYPE_IGNOR 
5249 5366 6 THEN 
5250 5367 6 
5251 5368 6 
5252 5369 6 ! IGNORed entries are always deleted. If this wasn't 
5253 5370 6 ! a TBIT exception, the entry will be re-entered when | 
5254 5371 6 ! the associated parent-event is re-activated (‘cause 
5255 2378 6 ' all IGNORed entries are used to TBIT over some 
2526 5373 6 ! instruction). 
5257 5374 6 ! 
5258 5375 7 BEGIN 
5259 5376 7 EVENT CEVENTSV_DELETED] = TRUE; 
5260 5377 7 
5261 5378 7 s 
5262 5379 7 ! Ignored entries are active if this is a TBI7. 
5263 5380 7 ! 
5264 5381 7 IF .EXCEPTION_TYPE EQLU SS$_TBIT 
5265 2a56 7 HEN 
5266 5383 7 ACTIVE_EVENT = TRUE; 
5267 5384 7 D 
5268 5385 7 
5269 5386 6 ELSE 
5270 5387 6 
$271 5388 6 : 
5272 5389 6 ! This is a ‘real* event, not an IGNORed one. 
se GP sec 
2 75 3332 7 
5276 5393 7 ; 
5277 5394 7 ! Case on the kind of event entry, to determine whether 
5278 5395 7 ' the exception is applicable, and if the entry is 
5279 5396 7 ' active. 
*280 HE 7 : 
“781 5398 7 CASE .EVENT CEVENTSB_CMD_KIND] 
58 5399 7 FROM EVENTSK_KIND_ACC TO EVENTSK_KIND_EXC OF 
aH 5400 7 ft 

84 5401 7 EVENTSK_KIND_ACC): 

256? 2t08 7 
5286 5403 7 
5287 5404 7 ! Case on the access sub-kind.... 
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_v04-000 DEBUG.SR GEVENT.B32;1 (17) 
13; 5288 405 7 ! 
'3 5289 £86 7 CASE .EVENT CEVENTSB_SUB_KIND] 
; 5290 407 7 FROM EVENTSK_ACC_READ TO-EVENTSK_ACC_RTRN OF 
> 5291 5408 7 SET 
3 > 9 re 7 
1: $29 410 7 
3 5296 5411 7 CEVENTSK_ACC_READ): 
; 5295 etlg 7 : 
> 5296 413 7 
: 5297 5414 7 
; 5298 5415 7 CEVENTSK_ACC_WRITJ: 
: 2638 etig 7 : 
; 5500 417 7 
; 5301 5418 7 
33 4 5419 7 CEVENTSK_ACC_MDFY): 
; 5305 54 ¢ 7 ! If we're ig ACCVIOS (meaning 
; 5306 54 7 ! we had one, and it's page address 
; 5307 5424 7 ! was one we're watching for.... 
; 5308 5425 7 | weeeeSs] 
; 5309 5426 7 : If we're returned from system — 
; 5310 5427 7 ' service, or during system service 
; 5311 5428 7 S CyPCLOces 
3; 5312 5429 7 ! 
; 5313 5430 7 IF .SKIP_ACCVIOS OR 
>: 5314 5431 7 -SKIP_WATCHES OR 
; 5315 2636 7 .DBG$GB_SET_WATCH_FLAG 
: 5316 5435 7 THEN 
; 5317 5434 8 BEGIN | 
; 5318 5435 8 LOCAL 
: 5319 5436 8 LENGTH; 
: 5320 5437 8 
3; 5321 5438 8 : 
; 2356 5439 8 ! We've got an active event. 
; 532 5440 8 : 
3: 5324 5441 8 ACTIVE_EVENT = TRUE; 
: 5325 rr 8 
3; 5326 5443 8 
3: 5327 5444 8 ' Get the byte Length of the 
: 5328 5445 8 ! entry's value. Note that we 
3; 5329 5446 8 ! actually get its bit length and 
3 2339 5447 8 ! round up. This should be okay 
3; 5331 5448 8 ' "cause the values saved in a 
: 5332 5449 8 ' value descriptor are padded out 
3; 5333 5450 8 ' to fill bytes. 
>; 5334 5451 8 ! 
; 5335 e626 8 LENGTH = 
; 5336 5453 8 DBGSDATA_LENGTH 
: 5337 5454 (EVENT CEVENTSA VASDESCI): 
; 5338 5455 LENGTH = (.LEN + 7) * <3; 
; 5339 3456 GET WATCH_POINT_VALUE(.EVENT); 
; 2ee0 et? ; OLDVALUE = 
: 1 458 ~-EVENT CEVENTSL_VALDESC); 
; 2366 e623 
3; 5 460 
7: 5344 5461 ! Now, compare the two values, and 
j 
j 
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3 5345 £98 ' process the event is they're the 
BB, ie — 
|: 5348 465 if CHSEQL 
(3 5349 5466 (LENGTH 
+ 2320 3467 OLDVALUE (DBGSA_VALUE_ADDRESS], 
: § 38 5469 NEWVALUE CDBGSA_VALUE_ADD®ESS), 
3 322 5470 8 0 
ae kn ren 
3 5356 a8 8 DBGSNFREE_DESC( .NEWVALUE ) | 
3 5357 5474 8 ELSE 
; 5358 5475 9 BEGIN 
HB OS 
: 230) ance ; } Process the entry. 
> 536 5480 9 iF .SKIP_WATCHES OR 
: axes re 4 ;DBGSGB_SET WATCH FLAG 
; $366 cas 9 ACCVIO PC = .WATCH PC; 
; 2367 28s 4 STATUS = DBGSPROCESS_EVENT 
: 5369 $486 9 “SIGNAL_ARG_PTR 
: 8379 aba 8 | 
: 5372 5489 9 ! Update the value descriptor in the event entry to refl. 
3; 5373 5490 9 ' new value. 
: 5374 5491 9 ' Then, since we are finished with the value descriptor | 
; 5375 5492 9 ! free up the memory. 
: 5376 5493 9 i | 
: 338 3498 9 SHSM VE ENG? : | 
; 5379 5496 9 NEWVALUE CDBGSA_VALUE_ADDRESS), 
; 3300 rea 4  OLDVALUE DBGS$A_VALUE_ADDRESS] 
: 238¢ 2499 9 DBGSNFREE_DESC(.NEWVALUE) ; | 
: 5384 5501 9 ! If we have been pre- 
; 5385 2208 o ! enpted by a GO, STEP, 
; 5386 5503 9 * CONTINUE, or EXIT, we will 
; 5387 2208 4 } stop processing. 
2 ae: i, «Status 
> 5391 5508 9 EXITLOOP; 
\3 539 3509 8 ND; 
5 2 9 5510 END; 
: 88g¢ 3313 5 
: 3394 2318 7 ' Process an /EXECUTION (BREAK/TRACE) 
: 3395 ais 5 oaabe 
: 5399 316 7 CEVENTSK_ACC_EXEC): 
: 3400 51 8 BEGIN 
; 5401 518 
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1 
1b-5e -1984 00:59:1 AX-11 Bliss-32 V4. 1 
1 ~Sep-19 4 13738:33 DEBUG. SRCIDBGEVENT .832; 1 | (1 


atch the address of the eventpoint 
th the current PC for an active 


7 | 
vent... 
iF gEvENT CEVENTSL_ADDRESS] EQLA .USERS_PC 


ez=z 
ae 


BEGIN 


The event is active, so process 
the entry. If on return we have 
been oP Ste by a GO, STEP, 
CONTINUE, or EXIT, we will stop 
processing. 


CTIVE_EVENT = TRUE; 
F DBGSPROCESS EVENT 


EVENT, 
,“SIGNAL_ARG_PTR 


' 
i 
i 
A 
I 


THEN 
EXITLOOP; 
END; 
END; | 


' Process a /RETURN (BREAK/TRACE/STEPS/ | 
SKIPS) entry. 


CEVENTSK_ACC_RTRNI: 
BEGIN 
Based on the event command type.... 
SELECTONE .EVENT CEVENTSB_CMD_TYPE] OF 


CBREAK! TRACEJ/RETURN 


CEVENTSK_TYPE_BREAK 
EVENTSK-TYPE-TRACES: 
BEGIA 


PDE_AEDQ_MAED PAs & BB BBL EEE EWM NIInonoponononononnen 


!' Match the address of the | 
' eventpoint with the current 

' PC for an active event... 

' age make sure the exception is not ROPRAND 

! (this is in case the user sets a 

return break at the RET). 

I 


F (EVENT CEVENTSL_ADDRESS] EQLA .USERS_PC) AND 


Oe ee ea ee ad a bh eh eh hh tell ech eh deh ech edt ech eh edb edi hah edad dh ahh ela “edb cd “sdb “clu “edad “cddh “cd “dich “cliched vedic sedidh “cdl “edich “cdc edly “odio “ebdh “edi elidel 
wee eal eal eal ah sh sh ah dh dh dh db ab 4h ak Ah Ah Ab Ab Ah Ab Abed edh eh eb bh th dh dh hh ah db dh ah Ab Ah Ab ab ah ah hh hh Ab edb hh dh hh hb hh bh db bh dl 


WOOOO OOO OO OW090000 69 19 09 09 09 09 0909 ININI NN VY NODOWODODOOOOOOOOOOONOO 


e-—_—__—_—_—— - ee a 


| . 4 | 
_DBGEVENT 16-Sep-1984 00:59: A¥-11 Bliss-32 V4.0-742 Page 152) 
V04= 12-808-13be 90°78 :58 DEBUG. SRCJDBGEVENT .832; 1 . (17) | 
/: 5459 2 19 (.EXCEPTION_TYPE NEQ SS$_ROPRAND) 
+ $460 7 THE | 
i #18 soa 
: $46 0 10 
3 54646 2 11 ! The event is active. 
'3 5465 5 2 1 i 
; 246 3 ; i ACTIVE_EVENT = TRUE; 
° | 
; 5468 585 1 
; su8e § 1 ! Get & new event descriptor 
: 2629 1 ! and Link it into the | 
; 5471 & 1 ! command queue. Note that 
; 2n76 89 1 ! this entry is placed in 
3 547 2239 10 ! the queue just in front 
; 3474 591 10 ! of its parent, and should 
3; 5475 236 1 ! be encountered first |!!! | 
: 3078 287 | SKIPS ENTRY = | 
: 5478 595 10 DBGSGET_MEMORY 
: 5479 5596 10 (EVENTSK EVENT_DESCRIPTOR_SIZE); | 
: 5480 597 10 INSQUE (. SKIPS _ERTRY 
; 5483 298 19 ~EVENT” CEVENTSL_CMD_BLINKJ | 
: 548 2600 10 ; | 
; 5484 601 10 
>; 5485 2008 10 ! Setup this entry to be a 
; 5486 268 10 ! /RETURN skip-event, 
; 5487 604 10 ! Linking to the event 
; rt} 2683 + } entry causing this mess. | 
: 3490 2607 19 SKIPS ENTRY CEVENTSE CHO_TYPES = | 
: 2498 609 10 SKIPS ENTRY CEVERTS$8_CMD_KIND) = 
: 549 610 10 NTSK_KIND_ACC: 
3 5494 611 10 SKIPS ENTRY CEVERT$SB_SUB_KIND) = 
: 5495 3612 10 NTSK_ACC_RTRN: | 
: o638 217 19 SKIPS_ENTRY CEVENTSV_ONCE_ONLY] = 
: 5498 5615 10 INSQUE? (.SKIPS_ENTRY, .EVENT); | 
Be 808 
: 5501 oi3 1 ! Initialize the FP to 0 so it gets 
: 2208 $1? : } setup when activated. 
: 3304 6 19 SKIPS_ENTRY CEVENTSL_USERS_FP) = 0; 
: 55 6 END; 
: 530% $e 
: 5509 6 3 ! CBREAK!TRACE/RETURN skips and 
: 331% 6 : i STEP/RETURN 
; 312 629 CEVENTSK_TYPE_SKIPS 
: 551 630 EVENTSK- TYPE STEPS): 
: 5514 631 BEGIN 
: 5515 5632 9 SELECTONE .EXCEPTION_TYPE OF 
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1B-Sen-1984 00:59:10 YaNett BLiss-32 


1 
5 
SET 
5S$_ROPRAND]: 
BEGIN 
LOCAL 
RIGHT_FP_FLAG; 


IF .OPCODE EQL %X'04" | 
RIGHT_FP_FLAG = MATCH_RIGHT_CALL_FRAME(.EVE | 
RIGHT_FP_FLAG = FALSE; 


ELSE | 

| 
IF_ .RIGHT_FP_FLAG | 
THEN 


BEGIN 
ACTIVE_EVENT = TRUE; 


! We've come to the RET instruction that we 
! in the process of stepping over a routine. 
' want to chenge our RETURN event back into 
ordinary STEP event, to resume stepping no 


if .EVENT CEVENTSV_STEP_BPTI | 
THEN 
BEGIN 
EVENT CEVENTSV_STEP_BPT) = FALSE; | 
EVENT CEVENTSB-CMD_RIND] = EVENTSK_KIND_. 
as 


EVENT$B_SUB_KIND] = .EVENT CEVENT 


! Process the entry. If on return we have b 

! preempted by a GO, STEP, CONTINUE, or E| 

we will stop processing. | 

ELSE IF DBGSPROCESS_EVENT | 

‘ “ SIGNAL_ARG_PTR) | 

EXITLOOP; | 

END; 

END; | 
CSS$_TBIT): 

TF .EVENT CEVENTSV_STEP_BPTJ 

THEN ACTIVE_EVENT = TRUE; 
COTHERWISE): 


TES; 
END; 


eeaneSs] 
We are examing the SSI entry was built 
at DBG$_SS_INT signal... 
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EVENT CEVENTSV_STEP_BPTJ] = FALSE; 


Depending on the ers + type (line/instruction) process the step. 

We also check here that either we are stepping /system, or else we 

not be in system space. That is, if we find that we are stepping n 

and that we are indeed in system space, then the IF condition will 

false and we will not process the event. We actually use ADDRESS G 

as our determination of what is system space, since most system 
| 


1 
| DBGEVENT 1b-5e -1984 759: AX-11 Bliss-32 V4.0-742 P 155. 
| yentiny 1ergee= 188s PSEF2isy | HMadG Bh sSace vent asses 29° 17) 
; 5630 767 THEN | 
631 74 
is ; 149 BEGIN 
2 1 } The event is active, regardless. 
g § ACTIVE_EVENT = TRUE; 
755 | 
736 ! If this was a BPT exception, turn off the 
u } STEP_BPT flag - we're done stepping over. 
36 If .EXCEPTION_TYPE EQLU SS$_BREAK 
$9 THEN | 
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are actually entered through P1 space now. 


F (C(NOT .EVENT CEVENTSV_STEP_NOSYSTEM]) OR 
(. DBGSRUNF RAMECDBGSL_USER_PCJ LSS P1_SPACE)) 


AND 

(SELECTONE .EVENT CEVENT$B_SUB_KIND2 OF | 

CEVENTSK_INS_EVRY): | 
TRUE? 


ee ee 


PUPV PV SV LULUSVSUSVSUSUSISV SISOS STSI SISOS 


AAAAAOO 
a] 


CEVENTSE INS CALL .EVENTSK, INS BRAN EVENTSX_ INS _USER: 


a3 


OP_MAP = EVENTCEVENTSL_OPCODE_LISTJ : REF BITVECTOR 


Check the opcode bitmap to see if the current 
instruction is one we're looking for. 


g 


33 


a a 
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.OP_MAP C.OPCODE) 
END; 
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CEVENTSK_INS_LINE): 


In the following parenthesized qupression 

TRUE => process this event, whic generally means 
stop tbit-ing and take user commands, 

FALSE => don't take this event, 
which generally means keep tbit-ing. 
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! If we are still in the range given by 

' LO_LPC, HI_PC then don't take the event - 
keep tbit-ing. 
( 


IF (.USERS_PC GEQA .EVENT CEVENTSL_STEP_LO_PC)) 
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Tb-Sep-1984 0:59:19 YAN? BLins-52 y4.0-742, 


) 
THEN 


RS_PC LEGA EVENT  FEVENTSL_STEP_HI_PC2) 


! (0 or 2) then the Lookup forled.. In this 
! ag wd! SL the rout of 1,0 so 

! that we immediately are ~ of the range 
! again after the next tbit 


MODRST = 
STATUS = fg LINE_LOOKUP( 


o 
2 
wo 
@ 


ie PLL 
ENT EVENTSL~STEP-H 


8 
EVENT EVENTSL_STEP_LO_PC] 
3 oe EVENTSL-STEP_HI_PC) 


“uu 
o— 
Sete 


The lookup routine can return any of: 

0 - no Line number cefernetten tos module 

1 = exact match to Line 

¢ = have pc/line tables, but no match for this PC 
- found Line, not exact match. 

we a eat iattely want to stop and take user commands 

0 (examples are stepping into RTL or module 

that is not set) 

We also want to step for 1 (stepped to the beginni 

of a new Line), and 3 (stepped to the middle of 

a new line). 

For 2, we keep going - we have stepped to a 

between-Lines locat on. RPG generates this mhind 

of code, and doesn't want us to stop at 

addresses without Line numbers. 


srAtus NEQ 2) 
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TES 


! The entry is active. 
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3: 57446 19 
: $745 °¢ 1 
3; 574 65 1 
3; 574 64 1 
: ere8 65 1 
: 5749 06 1 
3; 5750 67 1 
; 5751 2 68 1 
3; 37 ¢ 592 1 
3; 57 5870 1 
3; 5754 71 1 
; ef2? Ie 1 
3; 5756 731 
3; 5757 874 1 
; 5758 875 10 
; 5759 578 2S 
; 5760 5877 9 
: 5761 2578 

3 o76e 87 

: 576 5880 

3: 5764 5881 7 
3; 5765 onee 7 
: 5766 58835 7 
3: 5767 5884 7 
; 5768 5885 7 
3; 5769 5886 7 
: 5770 5887 7 
3; 5771 5888 7 
3; 5772 5889 7 
: 5773 5890 7 
3; 5774 5891 7 
3 aoe? e536 7 
3; 5776 5893 7 
3; 5777 5894 7 
3; 5778 5895 7 
3; 5779 5896 6 
; 5780 5897 3 
; 5781 4943 

3 ares 5899 5 
3; 578 5900 5 
3: 5784 5901 5 
3; 5785 2308 H 
: 2786 enn7 

: aH 2308 : 
3 3708 206 

3; 5790 90 

: 5791 a38 

: 2738 90 

: 579 910 5 
: 5794 911 4 
: 5795 318 4 
: 736 91 4 
; 579 914 & 
: 2738 915 4 
; 5799 3i¢ 4 
; 5800 917 & 
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16-Sep-1984 00:59: AxX-11 Bliss-32 V 
er8een 138s 93378559 eOkadG Bhi ssaceve 
' 
BEGIN 
! Process the entry. If on return we 
! have been preempted by a GO, STEP, 
! CONTINUE, or EXIT, we will stop 
processing. 
if DBGSPROCESS EVENT 

“SIGNAL_ARG_PTR 


THEN 
EXITLOOP; 


END; 
END; 
END; 


CEVERTOR KIND _ERCDs 
TES; 


' Release any Sonpqrery oars used during the 
: processing of this event. Also release all 

! Temporary RST Entries that have zero reference 
counts. 


DBGSREL_TEMPMEM (); 
DBGSRST_TEMP_RELEASE(); 
END; 

END; 


! If this entry was the ‘last’ one, exit this loop. Any others 
! on the List now came from ‘SET BREAK ...°° commands in some 
entry's DO command List.... 

if .EVENT EQLA .LAST1 THEN EXITLOOP; 

Link to the next entry. 

EVENT = EVENT CEVENTSL_CMD_FLINK); 


We're not skipping ACCVIO's any longer. 


SKIP_ACCVIOS = FALSE; 
SKIPTWATCHES = FALSE: 
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16-sep-19 & 09:39:19 AX-11 Ol igense y 


0 
-Sep-1984 DEBUG. SRC JDBGEVENT 


4 
NT. 
END; 


(SS$_ACCVIO): 


' DEBUG uses ACCVIO's for /MODIFY events. When an ACCVIO occurs, 
! we search the page queue for a page address match. If one is 
! found, we flag the event as active, flag that we're skipping 
i the ACCVIO, and we're done. 
BEGIN 
LOCAL 
PAGE_ENTRY : 
PAGE_ADDRESS; 
IF NOT .SKIP_ACCVIOS 
THE 
BEGIN 


REF EVENTSPAGE_DESCRIPTOR, ! Page entry 


Get the page address, and point to the ist page entry. 
PAGE_ADDRESS = .SIGNAL_ARG PTR (12,0,32,0] AND %X°FFFFFEOO'; 
PAGE-ENTRY = .EVENTSPAGE_QOEUE CL_QUEUE_FLINKI; 
Search the page queue for an entry with this address. 
WHILE .PAGE_ENTRY NEQA EVENTSPAGE_QUEUE DO 

Oe eee cenit CEVENTSL_PAGE_ADDRESS] EQLA .PAGE_ADDRESS 


! Found the matching entry, so flag that we're skipping 
' "cause of an ACCVIO, and exit the search Loop. 


zo 
=n 
“on 
a4 
Daz 
= 
mm 


ELSE 
PAGE_ENTRY = .PAGE_ENTRY CEVENTSL_PAGE_FLINK); 


END; 

ve the current PC for announcing where we were after we've 
nished executing this instruction. 

I0_PC = .USERS_PC; 


<_ —o& 


END; 


| m1 
“DBGEVENT 16-Sep-1984 00:59: AX=11 BLigs-32 v4.0-742 Page 159 
vOL“O00 ye=8eb-198 9:70:53  EdgauG. SReIDBGE VENT aSes 27) 


is 975 

Fr 889 976 TES; 

'; 5860 97 

; 5861 af8 

; B66 97 ! If no active events were discovered, look through the queue (as we 
; 586 980 ' remember it, sans any new additionss for an exception break. 

; 944 4 1 } found process it. 

; 2008 388 IF NOT .ACTIVE_EVENT 

; 586 984 THE 

; 5868 985 4 BEGIN 

3 34 986 4 

; 5870 987 4 

: ri 48 43 2 For each event entry in the queue, check to see if it is active.... 
; 2878 2990 4 EVENT = .EVENTSCMD QUEUE CL_QUEUE_FLINK); 

; 5874 5991 4 WHILE .EVENT NEQA EVENTSCMD-QUEUE CA_QUEUE_ENTRYJ DO 

; 5875 2036 : BEGIN 

; 5876 599 

; 5877 5994 5 

; 5878 5995 : ' Make sure that the entry isn't deleted but not removed.... 
; 5879 5996 ' 

; 5880 5997 5 IF NOT .EVENT CEVENTSV_DELETED) 

; 5881 5998 5 THEN 

5 oeg 5999 5 

; 588 6000 5 

3; 5884 6001 5 ! If this is an exception break.... 

; 5885 2008 5 ! 

; 5886 6003 5 IF .EVENT CEVENTSB_CMD_KIND] EQLU EVENTSK_KIND_EXC 

; 5887 6004 5 THE 

; 5888 6005 6 BEGIN 

; 5889 6006 6 

; 5890 6007 6 

3; 5891 6008 6 ! The event is active. 

3 384 6009 6 ! 

; 589 6010 6 ACTIVE_EVENT = TRUE; 

3 do 6011 6 

3; 5895 6012 6 

3 cane 6015 6 ! This is an exception break or trace, so flag it. 
; 589 6014 6 ! 

; 5898 6015 6 DBG$GB_EXC_BRE_FLAG = TRUE; 

; 5899 6016 6 

; gone 6017 6 

3 30) op ° Process the event, and scoot (it's the only one). 
: 3308 6020 6 DBGSPROCESS_EVENT (.EVENT, .SIGNAL_ARG_PTR); 

: 23pe 6021 EXITLOOP; 

3; 5905 $8 ; 

; $907 6024 

; 3908 6025 ! If this entry was the ‘last* one, exit this loop. Any others 
> 5909 60 i on the List now came from ‘SET BREAK ..."' commands in some 
: Bio $8 entry's DO command List.... 

3 aig 6 $ IF .EVENT EQLA .LAST1 THEN EXITLOOP; 
(f 33i2 $084 
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3 at} $8 § ; Link to the next entry. 

ls 319 6034 EVENT = .EVENT CEVENTSL_CMD_FLINKI; 

3; 5918 6035 4 END; 

'; 5919 60 § 4 

: 5920 60 END; 
3 921 6038 

5 7 § 6039 END; 

; 6940 

3; 5924 6041 

>; 5925 oOe§ ! If an active event was found, meaning we understood the exception, 

3s 39 § 604 ! return check to see if a break/step ended (and the user didn't go 

; 59 6044 ! or step in some DO clause). If this is the case, go back to the 

; 5928 6045 ! user for commands, otherwise continue. If an active event wasn't 

; 5929 604 ! found, return SS$_RESIGNAL.... 

; 5930 604 : 

; 28%) 6048 IF .ACTIVE_EVENT 

: 59 § 6049 THE 

; 593 6050 BEGIN 

3; 5934 6051 

; 5935 605 

; 5936 605 ! If this was not a trace event, then the EVENTSB8_STOP_USER flag will 
; 5937 6054 ; ! still be on, oe that we want to accent BEBUG™ commands. 

: 5938 6055 ! Also, if the user has typed ctrl/Y, DEBUG, then the STOP flag 

; 5939 6056 ! will have been turned on, and in this case we also want to take 
3; 5940 6057 ! user commands. 

3: 5941 6058 : 

; rok 4 6059 IF .EVENTSB_STOP_USER OR 

3; 594 6060 ; -DBGS$GV_CONTROLCDBGS$V_CONTROL_STOP) 

3: 5944 6061 THEN 

3; 5945 6062 4 BEGIN 

; 5946 60635 4 LOCAL 

3: 5947 6064 4 START_PC : REF VECTOR C, WORD); 

; 5948 6065 4 

3; 5949 6066 4 

; 5950 6067 4 ! Turn off RMS cancel Control-0 bit so that user can toggle 

3 ah ope ? Control-0 in the normal fashion. 

3 2984 6070 4 DBGSGL_OUTPRAB CRABS$V_CCO) = FALSE; 

3 epee 6071 4 

3; 5955 6072 4 

3; 5956 6075 4 ! Mark that the user program has executed so that all screen 

3; 5957 6074 4 ! displays will be updated before we take the next command from 
3 2328 6075 4 ! the user terminal. Note that this is suppressed if we juss 
; 5959 6076 4 ! returned normally from a CALL command routine. Hence the CALL 
; 5960 6077 4 ! command does not update screen dtsplays. If we are about to 
; 53 one ? take commands, we also clear the CALL command status flag. 
| 3 308 6080 4 IF .DBGSGB_CALL_NORMAL_RET NEQ 2 
E 3964 6081 4 THEN 

; 2002 on § ? DBGSGV_CONTROLCOBGS$V_CONTROL_SCREEN] = TRUE; 

: 3969 6084 4 IF .DBGSGB_TAKE_CMD THEN DBGS$GB_CALL_NORMAL_RET = 0; 

. rr 

: 399 6 4 ! As long as no commands in the any processed DO clause caused the 
a 5971 6088 4 ! program to continue (or restart), the command taking flag will 
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RETURN SS$_RESIGNAL 
ELSE 


Return to the user. 
am RETURN SS$_CONTINUE; 


: Didn't find an active event, so resignal the excepticn.... 


DBGSACTIVATE EVENTS (); 
DBGSRUNFRAMECDBG$V_TBIT) = .ORIG_TBIT; 
RETURN SS$_RESIGNAC 


0 14-Sep-19 16:5 DEBUG. SRC JDBGEVENT .832;1 
; are 6088 4 ! still be turned on, and further commands can be processed from 
; 597 6090 4 ! the input device. Otherwise, the while loop below does not 
; 5974 6091 4 ' execute at all. 
; 5975 6088 4 ! 
3 44 6095 4 WHILE .DBG$GB_TAKE_CMD DO 
3; 597 6094 4 DBGSCOMMAND_PROC (); 
: 5978 6095 4 
3; 5979 609 END; 
; 5980 609 
; 5981 6098 
; 404 6099 ! Activate events.... 
3 rs 6100 ! 
3; 5984 DBGSACTIVATE_EVENTS (); 
 3oRe 
; 5987 ' Return the Pe status, depending hohe on whether this was 
; 44 } an EXCEPTION break/trace, or a normal type. 
3; 5990 IF .DBGS$GB_EXC_BRE_FLAG 
3; 5991 THEN 
; 2936 4 BEGIN 
3; 599 4 DBGSRUNF RAMECDBG$V_TBIT] = .ORIG_TBIT; 
3 5994 4 
; 5995 4 
3: 5996 4 ! Resignal the exception so that handlers can get it 
3; 5997 4 ! (unless the user said GO <address> to go somewhere 
3; 5998 4 ' else). 
3; 5999 4 ! 
; 6000 4 IF NOT .DBG$GB_TAKE_CMD 
3; 6001 4 THEN 
3 rea) 4 IF .DBG$GB_GO_ARG_FLAG 
3; 600 4 
3; 6004 4 RETURN SS$_CONTINUE 
3; 6005 4 
; 6006 ? RETURN SS$_RESIGNAL 
3 4 
: ; 
; 3 
: 1 
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DBGEVENT 1b-se -1984 00:59: AX=11 Bliss-32 V4.0-742 Page 162 
v04-0 137800- 138s 99278: 88 DEBUG. SRC JDBGEVENT .B3251 90195 
OFFC 00000 ENTRY DEGSEXCEPTION HANDLER, Save RZ,R3,R4,R5,R6,-; 5006 
R7,RB,RI,RIO, R11 : | 
Pf 34 C2 9002 SUBL2 #36, $P : | 
04 AE 000000006 00 1 4 EF 0000 EXTZ2V #4, #1, DBGSRUNFRAME+68, ORIG_TBIT > 5099 | 
2 046 A 09 000F MOVL § SIGNAL_ARG_PTR + 5104 | 
A 04 Ao D 0013 MOVL  4(R2),~EXCEPTION_TYPE : 
5B 000000006 00 00 0001 MOVL — DBGSRUNFRAME+64, “USERS_PC : 510 
6B 01 90 0¢ OO1g PROBER #0, #1, (USERS_PC) : 511 
4 12 000 BNEQ 1 : 
6E D4 00024 CLRL PCODE : 
1D 11 000 6 BRB : 
bE 68 9A 00028 1S: MOVZBL (USERS_PC), OPCODE > 5111 
000000FD = &F 6E D1 000 : CMPL PCODE, #253 ; 
11 1F 000 BLSSU ; | 
Se 02 00 o¢ 0034 PROBER #0, #2, (USERS_PC) : 5112) 
0B 13 00038 BEQL $ ; | 
6E 01 AB 9A 003A MOVZBL I CUSERS PC), OPCODE > 5113, 
6E 00000100 8F CO 000 E ADDL2 #256, OPCOD ; | 
00000464 8F 5A D1 00045 2$: CMPL  EXCEPTION_TYPE, #1124 > 5119. 
4D 12 0004C BNEG = 4 : | 
50 000000006 00 9€ 0004E MOVAB DBGSPSEUDO_EXIT, RO : 5122) 
50 5B D1 0005 CMPL USERS_P » RO ; | 
30 13 00058 BEQL $ : 
50 000000006 00 9E 0005A MOVAB DBGSTERM_HANDLR, RO > 5123) 
50 5B D1 00061 CMPL USER _PC? RO ; | 
34 13 00064 BEQL ; | 
50 000000006 00 9E 00066 MOVAB DBGSUSER_EXIT, RO > 5124, 
50 5B D1 0006D CMPL USERS_PC; RO ; | 
18 13 00070 BEQL ; 
50 000000006 00 9 00072 MOVAB PRIM_HANDL 2. RO : 5125 
50 5B D1 00079 CMPL USERS_PC, R ; 
0c 13 0007¢ BEQL $ ; 
50 000000006 00 SE Q007E MOVAB DBGSPSEUDO_SSI, RO > 5126) 
50 5B OT 60085 CMPL _ USERS_PC, RO ; 
11 12 00088 BNEQ  4$ ; 
000000006 00 10 8A OOO8A 3$: BICB2 #16, DBGSRUNFRAME+68 : 512 
000000006 00 80 8F 88 00091 BISB2 #128, DBGSGL_OUTPRAB+7 : 51 
18 11 90099 BRB 5$ ; 213 
000006A1_ —8F SA D1 00098 48: CMPL §_EXCEPTION_TYPE, #1697 : 51 
12 12 O00A2 BNEG = 6$ ; 
FE12 CF 00 FB O00A4 CALLS 4&0, DRGSDEACTIVATE EVENTS : 515 
oC 62 08 B2 90 000A9 MOVE a8(R2), a12(R2) : 515 
FAGB OCF 0 re OOAE CALLS #0, DBGSACTIVATE_EVENTS : 515 
O4FA 00B3 5$: BRW 71$ > 515 
00028793 8F 5A D1 00086 6$: CMPL EXCEPTION. TYPE, #165779 : 516 
03 13 OOBD BEQL $ ; 
008 31 OBF BRW 11$ ; | 
50 08 A . d0Ce 7$ MOVAB gcR2) SIGARG > 5186 | 
54 4 A p 00C MOVL O(SIGARG), BIT 15 CNT_SSV : 519 
01 64 91 OCA CMPB (BIT_15_CNE_SSVT, MH : 519 
E4 1A 009CD BGTRU 5 ; 
53 10 A0 p CF MOVL  16(SIGARG), BIT_15_CNT ; $200 
6 D STB (BIT_15_cnf) : 5201 | 
bt 1 D BNEQ 5 ; | 
00000000' EE 1 9 D MOVB #1, DBGS$GB_SET WATCH_FLAG ; 5206 
2 0c AO D DE MOVL  12¢SIGARG)> USERS_FP : 5207 
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DBGEVENT 16-Sep-1984 00:59: AX=-11 BLis $+32 V4.0-742 Pa e ! 3 
v04=0 1o-308- 1388 9 33:19 {oeBuG. SRC} DBGEVENT.B32;1 ° 
56 00000000' FF DO O0e2 MOVL § EVENTSCMD_QUEYE, EVENT ; 0 8 
0 DD OE PUSHL a : | 
000000006 00 01 FB EB CALLS DBGSGET_MEMORY : 
04 Bb 0 0 F INSQUE {SENG ENTRY) 94 (EVENT) + 5210 
16 «OA 6 : F6 MOVW #6, OTESINT ENTRY : 5211. 
1g AO 4 FA MOVB 4, (SSINTTENTRYD + 5213 
17 AO 4 88 OO0F BISB2 #4 (SSINTIENTRY) + 5214 
08 Ad D0 0010 MOVL SSINT_ENTRY, ~8(SSINT_ENTRY) : 521 
0c Ad D 019 MOVL § SSINTTENTRY, 12(SSINT_ENTRY) : 3 1 
34 A D 91 A MOVL USERS_EP. 36 (SSINT_ENTRY) : 521 
5 A 80 BF 88 0010 BISB2 #128, 5(USERS_FP) : 521 
1¢ AO 4 0D oi MOVL BIT_{5_CNT_SSo 28(SSINT_ENTRY) : 521 
eC AO 3 pO 0011 MOVL BIT 15"CNT> 44(SSINT_ENTRY) : 5 3 
6 a0 10 A2 D O118 MOVL 6(OSERS_FP), 32(SSINT_ENTRY) : 52 
00000000" EF 10 A po 1 MOVL § 16(USERS-FP). WATCH_PC : 322 
63 96 00128 INCB =: (BIT_15_UNT) : 522 
01 6 91 O012A CMPB Ss (BITI15<CNT), #1 : 522 
i 13 012D BNEQ 5$ : 
52 00000000" EF DO O012F MOVL §EVENTS$PAGE_QUEUE, PAGE_ENTRY + §22 
50 00000000° EE 9E 00136 8$: MOVAB EVENTSPAGE-QUEUE, RO : 522 
50 é D1 0013D CMPL  PAGE_ENTRY; RO : 
03 12 90149 BNEQ 9$ : 
0468 31 0142 BRW 71$ : 
1¢ AE 08 Ag DO 00145 98: MOVL  8(PAGE_ENTRY), ADDRESS : 5230 
20 AE 08 A2 DO OO14A MOVL § 8(PAGE“ENTRY), ADDRESS+4 : 5231. 
ze D4 OO14F CLRL = = (SP) : 5234) 
7E OE A2 9A 00151 MOVZBL 14(PAGE_ENTRY), -(SP) : 
are. we 00153 CLRQ =(SP) : 
2c AE 9F 00157 PUSHAB ADDRESS ; 
000000006 00 05 FB 00154 CALLS #5, SYSSSETPRT ; 
OF 50 €8 00161 BLBS RO. 10$ : 
000284¢4 8F DD 00164 PUSHL #165060 : 5236) 
000000006 00 01 FB OO16A CALLS #1, LIBSSIGNAL ; 
C3 11 00171 BRB ; 
$2 62 D0 00173 10$:  MOVL ## (PAGE_ENTRY), PAGE_ENTRY : 5238 
BE 11 00176 BRB 8 : 5228 
000000006 00 94 00178 11$:  CLRB DBG$GB_EXC_BRE_FLAG ; 3248 
59 04 OOI7E CLRL  ACTIVEEVERT : 5254 
00000000° EF 01 b0 90180 1, TYPE SOURCE : 5260 
00000000' cf 4 00187 CLRB ~—s EVENTS$B_STOP_USE : 5267 
000000006 00 1 90 00180 MOVB #1, DBGSGB_TAKE_CMD : 5274 
FD22~=sCF 00 FB 00194 CALLS #0. DBGSDEACTIVATE EVENTS ; 5280 
0000046C = &F 3A pi 0199 CPL ye TYPE, #iT : 5281 
00000000' ef 19 Oh MOVB 1, EVENTSB STOP_USER + 5295 
9 1 00 OO1A MOVL ACTIVE EVENT™ : 5296 
000000006 0 p TAC 12$: iste p BESRUNE RARE soe : 5302 
6 00000000" EF 3 1B4 MOVAB EVENTSCHD QUEUE, EVENT : 5305 
66 p 188 13$:  $MOVL (EVENT), EVENT : 5308 
00000000' gf F 1B MOVAB EVENTSCAD _QUEUE, RO : 5309 
0 1¢ CMPL FVENT ; 
: : 1¢ BNEG 4 ; 
03 1CA BRwW 5 3 
03 14 ag 91 1Cp 148: CPB Q{EVENT), : $310 
17 Ab 80 GF af 1D3 B1SB2 18, 23( EVENT) : $312 
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39:19 AX-11 BL biggeze V4.0-7 
SRC IDBGEVENT. 8525 1 


DEBUG. 


XCEPTION. TYPE, #1044 
XCEPTION_TYPE, #1108 
XCEPTION_TYPE, #1124 
EXCEPTION TYPE, #1132 


$ 
XCEPTION, TYPE, #1132 
Me DBGSGV_CONTROL+1, 
VENTSCMD QUEUE +4 
VENTSCMD~Q . EVE 
VENTSCMD- “QUEUE. 
VENT, RO” 

9$ 


8, 3(R8) 
EPTION_TYPE, #1124 


6$ 


"RO" 
#-3, fo L LENGTH 


#1, GET WATCH ttt as VALUE 


4BLEVENT), Lo 
ALUE, R 
ova LU 


LENGTH, $2¢h0). 32(R5) 


a" 
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DBGEVENT 16-Sep-1984 00:59: AX-11 Bliss-32 V4.0-742 Page 165 
vitae 1er8Sp= 1882 99:93:29 YOKENL Shigsss2 yaeOnre2 ath at 
5 Dd 002c PUSHL RS 3 5473 
000000006 00 ni FB 6 . CALLS a DBGSNFREE_DESC : | 
07 00000000" EF E cE Sts: BLBS § SKIP_WATCHES, 29$ + 5480. 
B 99 0 ' EF EC 06 BLBC  DBG$GB_SET_WATCH_FLAG, 30$ ; 5481, 
00000000" EF ' €F Op Dp 98: MOVL  WATCH_PC, ACCVIONPC + 5483. 
4 AC DD O00CE8 30$:  PUSHL SIGNAC_ARG_ : 486 
56 DD O02EB PUSHL EVENT : 5485. 
0000v CF g F E CALLS #2, DBGSPROCESS_EVENT : 
0c ae D F MOVL RO. STATUS : | 
3} SOOEE00G: GEE SSS RE RRLVAE: .) 
20 a0 20 A 5 BB O08. MOVC3 LENGTH, $2(R8), 32(RO) ; | 
8 DD OO30A PUSHL R + 5499 | 
000000006 0 01 FB 9080 CALLS #1, _DBGSNFREE_DESC : | 
B 0c AE : 1 BLBC status, 27$ : $506 
0197 31 0 1 BRW 7$ : 5508 | 
58 2c =—AG ODT OO31A 318 CMPL  44(EVENT), USERS_PC + 5524 
AC if 031 BNEG  27$ : 
59 01 p 0 MOVL #1, ACTIVE_EVENT : 5535 
0164 31 00 328: BRW 54$ : 5538 
01 68 91 00306 33$:  CMPB (RB), #1 : 5563 
C 1A 00329 BGTRU 34$ F 
58 2c A6 D1 00328 CMPL  44(EVENT), USERS_PC : 5575. 
9B 12 0032F BNEG  27$ : 
00000454 8F 5A D1 00331 CMPL EXCEPTION. TYPE, #1108 : 5576 
92 13 03 8 BEQL 7$ : 
59 01 DO 0033A MOVL #1, ACTIVE_EVENT : 5583) 
10 DD 00330 PUSHL #16 : 5596) 
000000006 90 01 FB 0033F CALLS #1, DBGSGET_MEMORY : 
50 pO 00 46 MOVL RO, SKIPS _ERTRY ; 
04 86 67 OF 034 INSQUE (SKIPS ENTRY), @4(EVENT) : 5598 
14 A? 04 BO 0034D MOV #4, 20TSKIPS_ENTRY) : 5607 
16 A? 04 20 00351 MOVB #4, 22(SKIPS-ENTRY) : 5611 
17 A? 04 88 00355 BISB2 #4. 23(SKIPS~ENTRY) : 5613 | 
56 0D 00359 PUSHL EVENT : 5615 | 
57 DD 00358 PUSHL SKIPS_ENTRY : 
0000v CF 02 FB 00350 CALLS #2, IRSQUE1 ; 
24 A? D4 0036 CLAL 36{SKIPS_ENTRY) : 5621 
af 11 0036 BRB $ : 5557. 
03 68 91 00367 348: CMPB (RB), #3 : 5629 | 
4c 1F 0 6A BLSSU _39$ : 
04 68 91 0036C CMPB 0s (RB), #4 : | 
47 1A 0 of BGTRU 39$ ; 
00000454 8F SA 1 1 CMPL GXCEPTION. TYPE, #1108 > 5634 | 
A 1 78 BNE 7$ : | 
£ D 7A CMPL QPCOvE. 4 : 5639 | 
12 0037D BNEO 5$ ; | 
6 DD 0037F PUSHL EVENT : 5641. 
1 Fe 1 CALLS #1, MATCH_RIGHT_CALL_FRAME ; | 
1 BRB 36§ : | 
D4 35 CLRL = RIGHT_FP_FLAG : 5643. 
£9 A 368 BLBC RIGHT FP"FLAG, 38$ > 564 
1 do MOVL #1, ACTIVE EVENT 3 $648, 
é BBC a2, (EVERT), 32% : 5655 | 
A BICB2 46; (EVENT) ; 5658 | 
1 90 MOVB #1. 1(RB) : 5659 | 


2 
GEVENT .- $ep-1984 AX=11 Bliss-32 v4.0-742 
Mirai 3e0n Fhe 83:38:89 «| eaNeG Bhi SSacevene we soc 
02 AB 1B Ag 90 nove gz (EVENT). 2(R8) 
00000464 &F oA 37$ cHPL EXCEPTION, TYPE, #1124 
53 19 =A G3 E BBC ee 25(EVENT), 43$ 
5 000) if - HOVL # ACTIVE_EVENT 
06 fs 91 $58: CMP (ee, #6 
24 Ab 000000006 0 of CMPL DBGSRUNFRAME+56, 36 (EVENT) 
EE BwEG $ 
04 f p CMPL 0p ODE, #4 
BNEG ae 
” 88 - ‘ aa Ag Active EVENT 
00000000' FF Be CLRB Ss EVEN ie, stp USER 
posing P| a ae 
00000664 &8F Sh D4 40$ CPL EXCE PTION. TYPE, #1124 
0000046c = «&F i D} CMPL  EXCEPTION_TYPE, #1132 
07 12 BNEO 42s 
16 19 a6 02 Fl 41$: BBC We 25(EVENT), 46$ 
00000414 8F SA D4 42$ cHPL gxCE EPTION_TYPE, #1044 
AB 19 a6 8S if 3$: BBC #2, 25(EVENT), 38$ 
58 2c ag D1 44$:  CMPL 44(EVENT), USERS_PC 
59 ae ab cos; ROVE At. ACTIVE EVENT 
00000414 &F 3A D : cMeL ExtePTiON, TYPE, #1044 
19 A6 04 BA BICB2 #4 25 (EVENT) 
18 Ab 93 47$: iste 24(EV 
40000000  8F 000000006 00 pi CPL GSRUNFRAME+64, #1073741824 
08 02 AB 91 48%:  CMPB (RB), #8 
05 02 i i Pars 3¢Re) a5 
06 02 AB OF BiSSU S98 ug 
06 1 BLEQU 50S * 
09 02 A : 49S: CWP (R8), rT) 
48 28 «Bb 6 ‘I 508 BBC PCODE, @4O(EVENT), 55$ 
07 02 ag 91 51$ CMPB (RB), #7 
1 BNEQ 4$ 
34 AG B : CMPL YSERS_PC, 52(EVENT) 
6 iF BLSSU 
38 Ab B pi CMPL USERS_PC, 56(EVENT) 
4 8 BLEGU 
i AE 52%: LRL - MODRST 
10 AE OF PUSHAB MODRST 
; AG OF PUSHAB SStEvENT) 
4 PUSHAB 52(EVENT) 


Pid 
o 
4 
a 


Pe Se Se Se Ge Se Se Se Se Se Se Se See Se Ge Ge Ge Be Ge Se Se Se Se Se Se Ge Be Se Se Se Ge Se Se Se Be Se Be Be Be Se Be Se Se Se Se Se Se Se Se Be Be Se Se BeBe Se 


“BONO WMe& 


H 2 
DBGEVENT 16-Sep-1984 00:59: AX-11 Bliss-32 V4.0-742 Page 167 
v04=000 at aet 1 9 33:38 DEBUG. SRC IDBGEV NT.832;1 917) 
AE OF 0046F PUSHAB STMTNO : 4) 
ache 6 Res tne, i saz0 
000000006 00 68 FB 47 CALLS #6 o8c8P TO_LINE_LOOKUP : 
4 5 ve BLBS stAty 538 + 5831 
3% OC«A 1 70 004 mMOVa #1 tevent) : 583 
0 0 D4 4 5 53$ CPL stAtus, 4 : 5853) 
04 AC DD 0048A Sas PUSHL  SIGNAL_ARG_PTR ; 5871 
56 DD 004 PUSHL EVENT : 5870) 
0000v CF FB 48F CALLS #2, DEGSPROCESS_EVENT : 
1A EB 004 BLES = RO, : 
00000006 00 FB 00497 55$: CALLS #0. DBGSREL_TEMPMEM + 589 
00000006 00 FB rH CALLS #0, DBGSRST~TEMP_RELEASE : 589 
08 AE : i 4A5 56$ CPL EVENT. LASTT + 590 
56 $6 MOVL (EVENT), EVENT : 591 
FD 1 004A BRW 18$ : 535 
00000000" EF 7C¢ 00481 57$:  CLRQ  SKIP_ACCVIOS : 591 
6A 11 00487 BRB 62$ : 532 
0c 3A D| 4B9 58$: cMPL EXCEPTION. TYPE, wi2 : 592 
3 00000000° EF tf 48 BLBS § SKIP_ACCVIOS, 62$ + 5934 
0 4 AC 00 004C MOV $1GNAL ARG_PTR, RO : 594 
52 0c A0 QOOOO1FF 8F CB 004C9 BICL3 #511, T2(RO), PAGE_ADDRESS ; 
00000000" EF 60 0040 MOVL. EVENTSPAGE_QUEUE, PAGE_ENTRY + 594 
1 00000000" FF 9 0409 59$ MOVAB EVENTSPAGE QUEUE, R1 : 594 
1 0D 0460 CMPL = PAGE_ENTRY> R1 : 
17 13 004E BEQL AE : 
52 08 ad 01 O4ES CMPL (PAGE_ENTRY), PAGE_ADDRESS + 5949) 
0c if 4€9 BNEQ 60S : 
00000000" EF 1 00 004E MOVL #1, SKIP_ACCVIOS : 595 
9 1 D0 004F MOVL #1. ACTIVE_EVENT : 595 
5 11 004F BRB 61$ : 595 
50 60 00 O4F7 60$:  MOVL  (PAGE_ENTRY), PAGE_ENTRY : 596 
pp 11 OO4FA BRB 59$ : 594 
00000000" €F B D Oar 61$:  MOVL USERS_PC, ACCVIO PC : 597 
42 59 €E 05 62$:  BLBS ACTIVE EVENT : 598 
56 00000000' EF p 5 MOVL EVENTSCMD_QUEUE, EVENT : 5990 
50 00000000° Er F 0500 63$ MOVAB EVENTSCMD"QUEUE. RO : 5991 
50 6 D 0514 CMPL VENT, RO ; | 
2¢ 13 217 BEQL 38 : | 
17 M6 9 19 TST (EVENT) : 5997 | 
I¢ 19 a1¢ BLSS 4$ : | 
02 15 Ab 9 3 CHP TCEVENT), #2 > 6003 | 
59 gt 06 4 MOVL #1, ACTIVE_EVENT : 6010 | 
000000006 00 1 7 MOVE #1, DBG$GB~EXC_BRE_FLAG : 6015 | 
04 AC OD PUSHL SIGNAL_ARG-PTR : 6020 | 
: DD PUSHL EVENT : 
0000v CF 2 Fe CALLS ‘ { DBGSPROCESS_EVENT F seed 
08 : ° A 648: CMPL EVENT, LAST1 : 6029 
BEQL 3 
6 p MOVL (EVENT), EVENT > 6034 | 
( 1 0054 BRB > §991 
E9 00545 65$:  BLBC ACTIVE_EVENT, 72% > 6048 


ieoseo-1964 09:89:10 YARSNY Bt igR=52 v4. 0-T42 


* So0000006 


§ 00000000° 


000000806 


Sse 


000000006 99 81S62 soe TAKE COND bos 


, re ie pte CALL “NORA her 


F 48 66$:  BLBS EVENTSB. STOP USER, ¢78 
1 4F BBC V_CONTROL+1, 708 
F 27 67$: B1¢B2 r88 eye OUTPRAB+7 
Q F CAP ae _CALL_RORMAL_RET, #2 
9 E 7¢ 69$:  BLBC $GB~TAKE~CMD, 
000000006 88 0 f 5 CALLS i BGSCOMMAND. PROC 
F56D F 70$: CALLS DBGSACTIVATE EVENTS 
is 000000006 E f BLBC opeses FAG 
000000006 00 01 AE F 9 INSV ORIG OPTS oie “s Secteune RANE +68 
A 990000006 06 6 E A BLBS pecsee- TAKE CMD, ? 
i 00000 E BLBC 86568" 60 ERG FLAG, 73$ 
: "Be apaeg 71s: pee 
F545 CF 00 FB 005B4 72$: CALLS #0, DBGSACTIVATE_EVENTS 
000000006 00 01 4 04 AE FO 00589 INSV OR is TBIT, #4, #7, DBGSRUNFRAME +68 
0 0918 8F ; O03¢3 73$: MOVZWL #2328, RO 
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; Routine Size: 1481 bytes, Routine Base: DBGSCODE + 1E6F 
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1bese -1984 00:59: AX-11 Bliss-32 v4 
Wz~see7}3Re PSeFZ:d8 = PONE) Ohigeese ve 
LOBAL ROUTINE DBGSPROCESS_EVENT(EVENT, SIGNAL_ARG_PTR) = 
FUNCTIONAL DESCRIPTION: 


An eventpoint has been determined to be active. It must now be 
processed. This includes handling any /AFTER, WHEN, and DO. 


FORMAL PARAMETERS: 
EVENT : The address of the event entry. 


IMPLICIT OUTPUTS: 
Processing the event may involve the execution of user commands. 


ROUTINE VALUE: 


TRUE is a GO, STEP, CONTINUE, or EXIT command was executed within 
a DO clause. 


SIDE EFFECTS: 
Any number of things. 


BEGIN 
EVENT : REF EVENTSEVENT_DESCRIPTOR, ! Event entry pointer 
SIGNAL_ARG_PTR : REF BLOCKC, BYTE; 

BUILTIN CALLG; 

EXTERNAL ROUTINE dbg$final_handl; 

OCAL 
DO_LIST_ENTRY : REF EVENTSDO_LIST_DESCRIPTOR, ! DO LIST descriptor 
MESSAGE’ VECT, ' MeSsage Vector 
SAVED_CISHEAD, ' Saved pointer to DBG$GL_CISHEAD 
! Saved level of CIS nesting 


SA LEVEL, 
EXCEPTION_TYPE; 


ENABLE dbg$final_handl; 

Save the exception type (name); 

EXCEPTION_TYPE = .SIGNAL_ARG_PTR CCHFSL_SIG_NAME]; 

f this is a skips-entry, ‘delete’ this one and point to the parent. 
t is the one we want to actually process. 

zEvENt CEVENTSB_CMD_TYPE] EQLU EVENTSK_TYPE_SKIPS 


te 


Page 169. 
att » 
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DBGEVENT 16-Sep-1984 259: AX-11 Bliss-32 V4.0-742 P 170. 
vOe- Ve-8ep-198e tosterss — EdeeuG.SRCSDBGEVENT-OSos1 79°18) 

6083 9 BEGIN | 

60 , EVENT CEVENTSY PELE TED? = TRUE; 

6085 WHILE .EVENT CEVENTS8 CMD_TYPE) EQLU GVENTSK,TYPE_SKIPS D0 

60. ¢ VENT = .EVENT CEVENTSL_EXC_FLINKJ; 

608 END; 

ones 4 

60 5 

epee If this is a steps-event, process it differently from the others. 

288 if EVENT CEVENTSB_CMD_TYPE] EQLU EVENTSK_TYPE_STEPS | 

6094 BEGIN 

6095 - 

ope 

4844 Decrement the step (after) count. 

6099 iF (CEVENT CEVENTSL AFTER COUNT] = 

6100 “BYeNT EVENTSC_AFTER_COUNT) - 1 


THEN 


} The stepping is complete.... 

BEGIN 

Special case for STEP/EXCEPTION. 

Hee ere eMT aS OED) EQL EVENTSK_KIND_EXC | 
BEGIN 


WN SO VONOUFS WN —OOCONOULS WN OO 


} This is an exception break or trace, so flag it. 
DBG$GB_EXC_BRE_FLAG = TRUE; 


: Format and output the message. 
DBGSPUTASG (. SIGNAL_ARG_PTR); 


Announce the step. 
ANNOUNCE _EVENT (.EVENT, .EXCEPTION_TYPE); 


: Delete the step. 
EVENT CEVENTSV_DELETED) = TRUE; 


DEBUG will stop for commands. 
EVENTSB_STOP_USER = TRUE; 
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2 
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END; 


Return - we haven't executed any new commands.... 
RETURN FALSE; 
END; 


! This is not a steps (or skips) entry. Process normally. 
! Update the /AFTER count. If it becomes equal to 0, then the entry is 
; now active. 
if (C(EVENT CEVENTSL AFTER_COUNT) = 
“EVENT EVENTSC_AFTER_COUNT) = 1 
THEN 
BEGIN 


: We've passed the /AFTER test. Now set the /AFTER count to 1. 
EVENT CEVENTSL_AFTER_COUNT) = 1; 


If there is a WHEN expression, procees it.... 
if .EVENT CEVENTSL_WHEN) NEQA 0 
THEN 


BEGIN 
PARSE_WHEN_CONDITION( EVENT); 


If the condition is false, return FALSE. 
if NOT .WHEN_CONDITION 

RETURN FALSE; 
ND; 


! If this event is temporary hep it as deleted now. This shouldn't 
! affect any further processing, ut the entry will be deleted when 
we go off to the user program. 

if .EVENT CEVENTSV_ONCE_ONLY) 


EVENT CEVENTSV_DELETED) = TRUE; 


: Flag a stop, if this is a BREAK. 


if .EVENT [EVENTSB_CMD_TYPE) EQLU EVENTSK_TYPE_BREAK OR 
-EVENT CEVENTSB~CMD"TYPE) EQLU EVENTSK_-TYPE-WATCH 


GPDRAAPOOAAPOAAAOAAAAAAAAAAAAPGAAAAAAAAAPSAAAAAAAAAAAA AAA AAOSAAAO 
oOo: DOOOO0O0 OO OWWWO WOOO OOO NINN NNN NNO o FOO IMM 
VASSS LE RE AV LOSS VEAP MG LOO NOME I OOO OUR SOD IGA ROMO OOOO I 
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PEEP AAAAAAAA AAPA AA AAAAAAAAA AAA AAA AAAAAAAAAAAAAAAIAEAAAA AAO 


EVENTSB_STOP_USER = TRUE; 


a 
1G-se0-1964 00:49:19 yayett Lins: 


! Case on the kind of event entry, to determine how to process it. 


' 
CASE .EVENT CEVENTSB_CMD_KIND) 
FROM EVENTSK_KIND_ACC TO EVENTSK_KIND_EXC OF 


EVENTSK_KIND_ACC): 
ANNOONCE EVENT (.EVENT, .EXCEPTION_TYPE); 


CEVENTSK_KIND_INS): 
ANNOONCE EVENT (.EVENT, .EXCEPTION_TYPE); 


CEVENTSK_KIND_EXC): 
BEGIN 


— 
so 
~ 
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} This is an exception break or trace, so flag it. 
DBGSGB_EXC_BRE_FLAG = TRUE; 


Format and output the message. 
DBGSPUTMSG (.SIGNAL_ARG_PTR); 


WWAIAI 
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An 


FP at et et et et et 


Announce the break. 
ANNOUNCE_EVENT (.EVENT, .EXCEPTION_TYPE); 
TES; , 


If there is a DO associated with this entry, do it. 
if .EVENT CEVENTSL_DO) NEQA 0 
BEGIN 


UPR" OOCDNOANE WN $O OONAULSWN—"O0@ 
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1 We need a local pointer to the DO command string. 


LOCAL 
DO_LENGTH, 
DO_LSTRING : REF VECTOR C, BYTE); 


: Point to the DO LIST entry. 
DO_LIST_ENTRY = .EVENT CEVENTSL_DO); 


Point to the command string. 
DO_LENGTH = .(.DO_LIST_ENTRYCEVENTSL_DO_LIST_POINT])<0,16,0>; 


PAPAAPAASAAAAAOAAPAAAAAAPAAAAAAAAAAAAAAAAPAAAAAAAAAAAAAAAAAAOH 
PAPE AAAAA AA AAA AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAA 
yo? ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot 11 YW or rr or or or rr a ee eee ee ee 
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4 
5 
; 
: 
60 
e) 
68 
64 
re4 
67 
8 
9 
0 
1 
g 
4 
5 
6 
7 
8 
9 
0 
1 
g 


0909 08909 SI SIN SIN SIN NNO OO 


1980 93:78:58 


G = DBGSGET_MEMORY((.D0_LENGTH/ZUPVAL) +1); 
tigrst AST aENTaY EVENTSL_DO_LIST_POINTI+2,.DO_STRING) ; 


! Add a Link to the command input stream. First remember the 
' current pointer to the head of the CIS stack, and the number 
of levels of nesting. 


SAVED_CISHEAD = .DBGSGL_CISHEAD; 
SAVED-LEVEL = .DBGSG 


P L_CTS_ LEVELS; 
IF NOT DBGSNCIS_ADD 


([00_STRING, .DO_LENGTH, CIS_1 
MESSAGE_VECT) 


THEN 
CALLG (.MESSAGE_VECT, LIBSSIGNAL); 


Process the DO clause. We repeatedly call COMMAND_PR 
call executing one command Ol i 

loop if either: 1) the user said STEP or GO 
in the TAKE_CMD flag becoming false, or 2) We exh 


. thus resulting 
aust the 
n the current CIS, and get back to the SAVED_CISHEAD 


SNINITIALIZE (); 
ILE (.DBGS$GB_TAKE_CMD) AND 

({DBGSGL-CISHEAD NEQ .SAVED_CISHEAD) AND 
-DBG$GL~CIS_LEVELS GTR .SAVED_LEVEL) DO 
SCOMMAND_PROC (); 


PARAEARAAAAAAAAAAAAAAA AA AAA A AO 
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! If the user typed a GO, STEP, EXIT, or CONTINUE, return true, 
otherwise false. 


RETURN NOT .DBG$GB_TAKE_CMD; 
END; 


POOAAAO 


: Return FALSE since the /AFTER count hasn't run out. 
RETURN FALSE; 


=PONININININWS SELLS LLL LLLP PPP PEPE PPP PPP PPP PELE ESE 


DBGSPROCESS EVENT, Save R2.R3,R4,R5,R6,R7.- 
8,R9,R10,RT 
DBGS$GL_CIS LEVELS 


7$, (FP) 
SIGNAL_ARG_PTR, R4 


nase =13%3 99:39: 9 AX-11 Bliss-32 V4.0-742 Page : 


3 
16-Sep ! 174 | 
14-Sep-1984 : DEBUG. SRCJDBGEVENT .B32; 1 (18 | 

22 7 AS 4h O2A MOVL 4(R4), EXCEPTION_TYPE $ 
0 4 AC p 0 : MOVL VENT, RO $ 6197, 
04 14 Ad 91 0 CPE «ROS, rT : 
17 ae 80 8F a8 99 § BISB2 #128, 23(RO) + 6200 | 
50 4 ac p 0 D 1$ MOVL VENT, RO + 6201 | 
04 146 AO 91 0 41 CMPB OCROS, #4 : 
07 if} 045 BNEQ 5 : 
04 AC 08 AO D 0047 MOVL (RO), EVENT : 6202 | 
EF 11 0004¢ BRB 1$ : 
23 #2 OAS Se conse “* «= ova «Suenos, “as z 6208) 
03 4g 3 b0086 CMPB)s«(R3), 3 : 
29 if 00059 BNEQ 5$ : 
1¢ =A2 D0? 00058 DECL  28(R2) + 6216 
21 12 00056 BNEQ 4$ : 6217 
02 01 AS 91 0006 CMPB—s«d1(R3), #2 > 6228 
0c ff 0064 BNEQ 3$ ; 
000000006 00 gi 90 00066 MOVB #1, DBG$GB_EXC_BRE_FLAG > 6235 | 
4 DD 0006D PUSHL  R4 + 6240) 
68 gi FB OO06F CALLS #1, -DRGSPUTMSG ; 
4 BB 90072 3$ PUSHR #*M<R2,R5> + 6245 
0000v CF 02 FB 00074 CALLS #2 “ANNOUNCE EVENT : 
03 A3 80 8F 88 00079 BISB2 #28 (R3) ~ + 6250 
69 01 90 0007E MOVB EVENTSB_STOP_USER > 6255 
00c8 31 00081 4$: BRW + 6261 
1C Ag D7 00084 5$: DECL  28(R2) : 6270 
F8 12 00087 BNEQ  4$ + 6271 
1c A2 01 00 00089 MOVL #1, iagh tr? : 6279 | 
20 A2 b 00080 TSTL 32¢ R2) 3: 6284 | 
OF 13 00090 BEQL © 6$ : 
52 DD 00092 PUSHL  R2 + 6287 
0000v CF 01 FB 00094 CALLS #1, PARSE wien: a waht é 
E1 00000000" EF £9 00099 BLBC  WHEN_CONDITION, 4$ > 6292 | 
05 63 1A £1 OOOAO 6$: BBC 436 “(R3) +3 + 6302 
03 AS 80 8F 88 000A4 B1SB2 Wigs, 3(R3) + 6304 
63 95 OOOA9 7$ TSTB. = (R3) : 6309 
05 13 0008 BEQL £ ; | 
02 63 91 OOOAD CMPB ss (R23), #2 : 6310. 
03 If 00080 NEQ 9$ : | 
69 01 90 000B2 8$: MOVB #1, EVENTS$B_STOP_USER : 6312 | 
0 00 01 A3 8F 00085 9$: CASEB 1(R3), #0, F2 > 6317 
0008 0014 0014 O00BA 10$: .WORD 155-198:- : 
11$-10$ 3 
0c 11 000C0 BRB 12$ + 6324 | 
000000006 00 gi 90 d0¢2 11$ ROVE i. DBG$GB_EXC_BRE_FLAG 6 2 
68 1 FB 000CB CALLS HF anreegynne : 
4 BB OOOCE 12$ PUSHR > 6342 | 
0000v CF F D CALLS a ANNOUNCE EVENT 3 
24 Ad D D TSTL  36¢R2) > 6349. 
72 13 00008 BEQL 16$ ; 
0 4 A2 00 OOODA MOVL 36(R2), DO_LIST_ENTRY : 6363 
gD ae iam Bah La0-bdttenctn* foe! 
50 6 64 ch OE IVL3 #4, GO_LENGTH, RO ; 6370 | 


3 
16*Sep-1984 00:59: AX-11 Bliss-32 v4.0-742 
1 ~3ep 7 9 £23318 DEBUG. SRCIDBGEVENT.B3271 
01 AO 9F 000E9 PUSHAB 1(RO) 
000000006 99 &, EC CALLS #1, DBGSGET_MEMORY 
0 F RO. DO_STRING 
67 02 A2 6 Fb MOVC3 DO LENGTH, g(R2) (DO_ STRING) 
664 4 000FB L (DO_LENGTH) LDO_STRINGJ 
53 6A 00 OOOFE MOVL  DBGSGL_CISHEAD; SAVED CISHEAD 
52 6B 00 00101 OVL DBGSGLICIS_LEVELS, SAVED_LEVEL 
5E DD 104 PUSHL SP 
43 C 001 CLRQ.  =(SP) 
2 DD 001 PUSHL #2 
: DD 0010A PUSHL DO_LENGTH 
57 DD 4 C PUSHL DO-STRING 
000000006 00 06 Fe 1 : CALLS #6, DBGSNCIS_ADD 
08 0 €8 0011 BLBS = 
000000006 00 00 BE FA O118 CALLG @MESSAGE_VECT, LIBSSIGNAL 
000000006 09 00 FB 00120 13$ CALLS #0, DBGSNINITIALIZE 
13 000000006 00 £9 00127 14$ BLBC  DBGS$GB_TAKE_CMD, 15$ 
53 6A D1 0012E CMPL § DBGSGLCISHEAD, SAVED_CISHEAD 
OE 13 00131 BEQL 15$ 
52 6B 01 00133 CMPL § DBGSGL_CIS_LEVELS, SAVED_LEVEL 
09 15 00136 BLEG Ss 
000000006 00 00 FB 00138 CALLS #0, DBGSCOMMAND_PROC 
E6 11 0013F BRB 4 
50 000000006 060 9A 00141 15$:  MOVZBL DBG$GB_TAKE_CMD, RO 
50 50 D2 00148 MCOML RO, RO 
04 00148 RET 
50 D4 0014C 16$:  CLRL RO 
04 0014E RET 
0000 O014F 17$: -WORD Save nothing 
7E D4 00151 CLRL 20s = (SP) 
SE DD 00153 PUSHL SP 
7E 04 AC 7D 00155 MOVQ. 4(AP), -(SP) 
000000006 00 03 FB 00159 CALLS #3, DBGSFINAL_HANDL 
04 00160 RET 


Routine Base: DBGSCODE + 2438 


; Routine Size: 5353 bytes, 


Pe Se Be Se Se Ge Ge Ge Ge Ge Se Fe Fe Fe Be Ge Se Fe Se Se Fe Ge Se Be Ge Ge Fe Be Ge Se Ge Fe Be Se 


d 3 
DBGEVENT 16-Sep-1984 00:59: AX-11 Bliss-32 V4.0-742 Page 176 
Miva o-308-1382 ET St DEBUG. SRC IDBGEVENT .B 3271 . (19) 
; 6298 6413 1 GLOBAL ROUTINE DBGSUPDATE_WATCHPOINTS: NOVALUE = 
3; 6299 6414 1! e 
; 6300 6415 1 ! FUNCTION 
; 6301 218 1! This routine updates the values in the watch point events. This 
3; 6 4 6417 1! s done in order to keep the watched values current even after a 
; 630 eels 1! DEPOSIT. 
3; 6304 6419 1! 
3; 6305 6420 1 ! INPUTS 
3; 6306 6421 1! NONE 
3; 6307 64 ¢ 1! 
; 6508 64 1 ! OUTPUTS 
: ? 44 #3 ; } ALL watch point event entries are updated with their current value. 
3 6311 64 § 1 
3; 6 \¢ 64 ; BEGIN 
; 631 6428 
3 6314 6429 OCAL 
; 6315 6430 EVENT_ENTRY : REF EVENTSEVENT_DESCRIPTOR, 
3 6316 att LENGTA, 
3 6317 64 $ NEW_VALDESC : REF DBGSVALDESC, 
3; 6318 643 OLD_VALDESC : REF DBGSVALDESC; 
3; 6319 6434 
3 O30 6435 
3; 6321 6436 ! Starting at the head of the command queue, update each watch point 
: O66 6437 ! entry. 
3; 632 6438 ! 
3 6324 6439 EVENT_ENTRY = .EVENTSCMD_QUEUE CL_QUEUE_FLINK); 
; 6325 644 WHILE” .EVENT_ENTRY NEQA EVENTSCMD_QUEUE DO 
3; 6326 6441 BEGIN 
: 6327 644 
; 6328 644 ! If this is a watch point entry, update it. 
3 $398 6444 ! 
; 6330 6445 IF .EVENT_ENTRYCEVENTSB_SUB_KIND) EQL EVENTSK_ACC_MDFY 
3; 6331 6446 THEN 
s att) 6447 4 BEGIN 
3; 633 6448 4 
3 6334 6449 & ' Get the “7? Length of the entry's value. Note that we actually 
3 $33? e620 ? get it's bit length and round up. 
3; 6337 6452 4 LENGTH = DBGSDATA_LENGTH(EVENT_ENTRYCEVENTSA_VMSDESCJ); 
3 tt ot27 $ LENGTH = (.LENGTH+ 7) * =3; 
3; 6340 6455 4 ! Make a new value descriptor from the VMS descriptor in this 
$ Os) 6626 4 ' event entry. This will then contain the new current value 
3 O36 rat t4 : ; we are loo ing for. 
3 6344 6459 4 NEW_VALDESC = DBGSMAKE_VAL_DESC(EVENT_ENTRYCEVENTSA_VMSDESC], 
3 Ost? 9660 $ DBGSK_VALUE_DESC); 
3 £325 6462 4 ' Now copy the ‘‘new’’ value into the old value descriptor that 
3; 6348 6465 4 ! hangs of this event entry. 
3; 6349 6464 4 ! 
; 6350 6465 4 OLD_VALDESC = .EVENT_ENTRYCEVENTSL_VALDESC); 
3; 6351 64 4 CHSMOVE < .LENGTH 
: 6 3 6467 4 NEW_VALDESC DBGSA_VALUE ADDRESS] 
; 6 23 666 : OLD“VALDESC COBGSA-VALUE~ADDRESSJ5; 


act 


; 6355 6470 
3 6 $ 6471 
; 6 oelg 
; 6558 647 
; 6359 6474 
; 6360 6475 END; 
2 
3 
50 
02 
000000006 00 
59 
50 
59 50 
7E 
000000006 00 
58 
57 
20 A? 20 As 
56 


; Routine Size: 81 bytes, 


Routine Base: 
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} Point to the next Command Queue entries. 
EVENT ENTRY = .EVENT_ENTRY CEVENTSL_CMD_FLINK); 


58 UpeauG. SacSbacevE 


R6,R 
EVENTSCMb aU R10 
EVENTSCMD- QUEUE EVENT_ENTRY 
EVENTSCMD~ QUEU UE, RO 

VENT PENTRY. 


(EVENT_ENTRY), #2 


FS pgp ENTRY) 
tENGTA LENGTH 


7(R 

res 5 fo, CLENGTA 
stEient SE ATRY? 

, BGSAAKE eVAt _DESC 


4 ite rsh NIRS OLD _VALD 
LENGTH, 32(NEW VALDESC) 
CEVENT. “ENTRVD. “EVENT E nTRY 


SaceveN "B32;1 


pecs poate a eee Save R2,R3,R4,R5,- 


gst 
2(OLD_VALDESC) 
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vOe 1e-3ep-1986 49:16:58 — EdgeuG.sRcsoeceveNtcases1 = O88 CDOS. 

6 | 


| 
H ° $078 ! ROUTINE ANNOUNCE _EVENT(EVENT_ENTRY, EXCEPTION_TYPE): NOVALUE = 
3 6 6678 1 | FUNCTION 
3 ° 2h44 : } This routine announces an event entry if the /SILENT fiag is false. 
; 6 ec8 1 ! INPUTS 
; 6368 64 ¢ . 3 EVENT_ENTRY : Pointer to event entry. 
; 6369 64 1! 
3 6370 6484 1 | OUTPUTS | 
3; 6371 6485 1! Announces the event entry via DBGSPRINT. 
; 6 ie; 64 $ 1! 
; 637 64 1 
3; 6374 6488 BEGIN 
3; 6375 6489 
: 6376 6490 MAP 
3 6377 6491 EVENT_ENTRY : REF EVENTSEVENT DESCRIPTOR, ! Event Entry Pointer 
; oar8 649 EXCEPTION_TYPE : BLOCK CRUPVAL, BYTE); 
: 6379 649 
; 6380 6494 
:; 6381 6495 LOCAL 
H one 6496 VMS_DESC: DBGS$STG_DESC 
; 638 6497 VAL-DESC: REF DBGSVALDESC, 
3; 6384 6498 STRING_DESCRIPTOR : ee (8, BYTE) 
> 6385 6499 OUTPUT-BUFFER : VECTOR CTTY_OUT_WIDTH, BYTE, 
3; 6386 6500 DUMMY, 
; 3 38 g30 ADDRESS ! Ent dd 
3 $ ! Entry address 
: 6389 $808 . 
; Pepe 6504 
3; 6391 6505 ! If the /SILENT flag is set, return without announcing. 
: 639 6506 i (This can be set by SET BREA/SILENT or STEP/SILENT). 
3 6394 6508 if .EVENT_ENTRYCEVENTSV_SILENT] THEN RETURN; 
3; 6395 6509 
3; 6396 6510 
3: 6397 6511 ! Purge type ahead. 
; 6398 bale ! 
3; 6399 651 DBGSGL_OUTPRAB CRAB$V_CCO) = TRUE; 
; 6400 6514 
: be02 $814 | Setup © sering desertpe 
; ! Se a@ string descriptor. 
: 640 $e17 ‘Sevag : , 
3 6404 6518 STRING_DESCRIPTOR pees prety = DSCSK_DTYPE_T; 
3; 6405 eel? STRING_DESCRIPTOR CDSC$B_CLASS] = DSCSK_CLASS_S; 
: 9608 6520 STRING_DESCRIPTOR CDSCSA_POINTER) = 0; 
; 640 6521 STRING_DESCRIPTOR CDSCSW_LENGTH) = 0; 
3; 6408 65 § 
3 6409 65 
3 oni re 3 : Print the event type (break, trace, watch or stepto - point). 
: esis 82 § DBSSPRINT (SAC ("!AC"), 
: etiz $3 SELES TOME -EVENT_ENTRY CEVENTSB_CMD_TYPE] OF 
3 6615 65 3 EVENTSK TYPE PREAKI: 
3 0616 $2 0 -4 *break'); 
3 641 6531 CEVENTSK_TYPE_TRACE): 
3 66418 6532 $AC T'trate'); 


3 
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CEVENTSK TYPE WATCH: 


E 
oOo 


3 6533 

; 6420 6534 $A watch’); 

> 6401 6535 CEVENTSK_TYPE_STEPS): 

3 64 ¢ 6 $ SAC T'stepped'); 

3; 64 6 ES 

3 6426 6 3 ); 

Be 

; #3 ; e34t Display the event kind (access, exception, instruction). 

3 6429 6 rk SELECTONE .EVENT_ENTRY CEVENTSB_CMD_KIND) OF 

; 6450 ? 44 SET 

3 oe 1 ° $2 

: 64 : $309 ! This is an access (read, write, modify, execute) kind 

: oe ¢ eee } of event point. Dispiay the address. 

3; 64 6550 CEVENTSK_KIND_ACC): 

3 64 6551 BEGIN 

+ 

; 6440 6554 ! If this is not an /EXECUTE type (we're done with those), continue 
: ore: $22? processing.... 

: ork $228 if -EVENT_ENTRY CEVENTSB_SUB_KIND] NEQU EVENTSK_ACC_EXEC 
> 6444 $238 THEN 

3 6445 6559 4 BEGIN 

fe B® 

: 6448 6369 4 ! Print the access kind if read, write, modify, or return. 
3 6449 6565 4 ! If the address is an entry point, indicate that it is a 
; ote? S288 ‘ routine. 

: 645¢ 6566 4 DBGSPRINT  ($AC (* VAC IAC!) 

3 645 6567 4 IF EVENT ENTRY CEVENTS$8_CMD_TYPE] NEQU 
; yah 5 $208 ? Mee ent PE MATCH 

; 6496 6370 4 SELECTONE .EVENT_ENTRY CEVENTSB_SUB_KIND] OF 
: 6458 6378 4 CEVENTSK_ACC_READ): 

3 6459 6573 4 SAC Ton read of '); 

3 6460 6574 4 CEVENTSK_ACC_WRITI: 

3 6461 6575 4 ‘on write of ‘); 

: 6469 6576 4 CEVENTSK_ACC_MDFYS: 

3; 646 6577 4 $AC C'on modify of '); 

3 6464 6578 4 CEVENTSK_ACC_RTRNJ: 

: ort tt44 ? Tes SAC Con return from ‘); 

: gee 63 1 4 ELSE 

3 yore | 6 § ? $AC (‘of "), 

; 64670 6584 4 IF .EVENT_ENTRY CEVENTSV_BREAK_ADDRESS) 
; ong b2 ? BAC ("routine *) 

> 6474 63 BEGIN 

> 6475 6 5 3 IF DBGSIS_IT_ENTRY 
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This is an instruction type. 
CEVENTSK_KIND_INS): 
BEGIN 


3 647 659 ’ . 
; an 6 90 ieee EVENT_ENTRY CEVENTSL_ADDRESS] = 2) 

3 ons 6 38 SAC (‘routine ‘) 

> 647 659 ELSE 

3 64 6594 SAC ('*) 

; 64 1 6 95 ; , END 

.: a : 

3 4 5 6598 ? Print the address. 

3 64 6601 4 If -EVENT_ENTRY CEVENTSB_CMD_TYPE] EQLU EVENTSK_TYPE_STEPS 
t gtgs e608 BEGIN 

: 6491 6605 FROM_ADDR; 

ok : 

> 6494 6608 ' Display "ROUTINE’ if th ' i 
6495 6609 2 ia 4 oy A ee ot aad i, e saved ‘from’ address points 
: gt99 6611 2 FROM_ADDR = .EVENT ENTRY CEVENTSL USERS_PC); 

> 6498 661¢ 2 IF DBGSIS_IT_ENTRY~(.FROM_ADDR = 2) 

3; 6499 661 THEN 

: 6500 6614 6 BEGIN 

5 e ot 2312 6 PoCn ALOR aa et 2) 

° = 

: 6 8 oei9 2 : 

Be BBG 

3 6506 6620 5 ! Print the address, but symbolize it first. | 
: 6508 6622 5 DBGSPRINT_IDENTIFIER_PC (.FROM_ADDR); 

3; 6509 66 j 5 END ™ Z se 

: $319 ge5¢ 2 ELSE | 
3 631¢ 66 $ 4 DBGSPRINT_IDENTIFIER (.EVENT_ENTRY CEVENTSL_PRIMARY)); | 
: 6514 6628 END; 

: $312 $095 

3 6317 $9 1 Depending on the command type.... 

3 6519 66 § if -EVENT_ENTRY CEVENTSB_CMD_TYPE] EQLU EVENTSK_TYPE_STEPS 

3 63 1 6635 DBGS$PRINT ($AC (' to ')) 

: 65 5 ELSE 

3 3¢e DBGSPRINT (SAC (* at ')); 

: 65 ND; 

3; 65 $ = 

3; 6528 

3; 6529 

: 65 

: 6531 

: 6532 
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Piseley the instruction type (calls, branches, all, or user 


EVENT_ENTRY CEVENTSB_CMD_TYPE] NEQU EVENTSK_TYPE_STEPS 
DBGSPRINT 
"on IAC), 
SELECTONE -EVENT_ENTRY CEVENTS8_SUB_KIND) OF 
EVENTSK_INS CALL: 
$ ut oF 
CEVENTSK INS_BRANJ: 


$ branches‘); 
CEVENTSK INS EVRY: 


AC Stee 
; 


Depending on the command type.... 
iF ~-EVENT_ENTRY CEVENTSB_CMD_TYPE] EQLU EVENTSK_TYPE_STEPS 


ELS DBGSPRINT (SAC (° to ')) 
DBGSPRINT (SAC (° at °)); 


: This is an exception type. 
CEVENTSK_KIND_EXC): 
BEGIN 


ST_PTR : REF DSTSRECORD, 
ST-PTR : REF RSTSENTRY, 
RAP_OR_FAULT, 

INE_NO, 

TMT-NO, 

TATOS; 


: Determine the nature (trap or fault) of the exception. 
if yEXCEPTION. TYPE CSTS$V_FAC_NOJ EQL 0 


BEGIN 
SELES TOME -EXCEPTION_TYPE OF 


CSSS$_ASTFLT, SS$_BREAK, SS$_COMPAT, 


“742 Page 182. 
B32;1 age 355 


3 
tb-Sen-1984 00:59:19 yAN-11 BLigs- 


6590 704 SS$_OPCCUS, SS$_OPCDEC, SS$_RADRMOD, SS$_ROPRAND]: 
6991 105 TRAP_OR-FAULT = FAULT_EXC; 
6538 COTHERWISE: soap exe 
} 4 os 
6595 y yah. wate 
6 TES; 
6 
6 
6 


$353 


END 


If the facility " not SS$, then we have a trap moanreg that the 
PC points to the instruction after the LIBSSIGNAL or LIBSSTOP call 
that raised the exception. (Non-SS$ exceptions can only be sig- 
nalled, not raised by the hardware.) | 


e388 


en nt 4 


B3ee 


SE | 
TRAP_OR_FAULT = TRAP_EXC; 


S& 


} The PC is the address to display. 
ADDRESS = .DBGSRUNFRAME COBGSL_USER_PC); 


Display the appropriate message. 


DBGSPRINT (SAC (" on exception ")); 
IF .TRAP_OR_FAULT EQL TRAP_EXC 


| 

HEN | | 
DBGSPRINT (SAC ("preceding *)) | 

ELS 


os is 


E 

DBGSPRINT ($AC (‘at ')); 
END; 

TES; 


MIMIPUNIPOND 
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pa dart 


! If this is a /MODIFY event (we used ACCVIO's), the address of the 
i offending instruction is in ACCVIO_PC, otherwise it's just the | 
current PC. 


IF (.EVENT_ENTRY AAs, By tg EQLU EVENTSK_KIND ACC) AND 
(,EVENTLENTRY CEVENTSB_SUB_KIND] EQLU EVENTSK_ACC_ADFY) 


ADDRESS = .ACCVIO_PC 


SSSSSSS-F3-5-5-5:5-5-5-5-5.5-5.3-5-S SF oo Oona 


SRVSEREAS= 


LSE 
ADDRESS = .DBGSRUNFRAME CDBGS$L_USER_PC); 


: Symbolize and print address (and instruction) 


PRINT_PC_AND_INSTRUCTION (. ADDRESS, -EVENT_ENTRY) ; 
DBGSNEWLINE 7); 
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7 

; gers ore8 ! If this is a modify-type, display the old and new values, and the 

: 29 ? of ee ; BREAK message. 

> 66 3 6766 iF .EVENT_ENTRY CEVENTSB_SUB_KIND] EQLU EVENTSK_ACC_MDFY 

3 66 676 THEN 

3; 6654 ores BEGIN 

+ ee 

: 66 : g770 ! Print the source Line where the actual variable-access occurred if 
: £628 erie : appropriate. 

3 6660 6774 & iF (.EVENT_ENTRYCEVENTSV_OVRD SOURCE] AND 

3; 6661 6775 3 sEVENT_ENTRYLEVENTSV STEP_SOURCEJ) OR 

z $606 0776 4 ((NOT .EVENT_ENTRYCEVENTSV_OVRD SoUREE) ND 

3 666 6777 4 -DBGSGB_STP_PTRCEVENTSV_STEPPING_SOURCE]) 
3 6664 6778 THEN 

3; 6665 6779 PRINT_SOURCE( ADDRESS); 

: Sees erat 

; e008 eres } Print the old value and the new value of the watched location. 

3 6670 6784 DBGSPRINT(SAC(' old value: ")); 

3; 6671 6785 DBGSPRINT_VALUE(.OLDVALUE, .0BG$G6B_RADIXCOBG$B RADIX_OUTPUT_OVERJ, 
3; 667 67 -DBGSGC_SIGN_FLAG, FALSE); 
3 667 67 DBGSNEWLINE(); 

3 6674 67 DBGSPRINT(S$AC(' new value: ‘)); 

3; 6675 6789 DBGSPRINT_VALUE( .NEWVALUE, .DBG$GB_RADIXCOBG$B RADIX_OUTPUT_OVER], 
; 6676 6790 -DBGSGC_SIGN_FLAG, FALSE); 
3; 6677 6791 DBGSNEWLINE(); 

es 

; oon0 one } Display the "BREAK AT <address>’ message. 

; 668¢ 6796 DBGSPRINT (IF .EVENT_ENTRY CEVENTSB_CMD_TYPE] NEQU 

3; 668 ta 4 EVENTSR_TYPE_TRACE 

; eat 6799 oe SAC ("break at ') 

; es? $30) SAC (‘trace at ‘) 

; 6689 680 7 

; e630 Be Symbolize and print address (and instruction) 

3 669 68 PRINT_PC_AND_INSTRUCTION (.DBGSRUNFRAME COBGSL_USER_PCJ, .EVENT_ENTRY); 
3 669 DBGSNEWLINE 7%); 

3 6694 6 END; 

3 2683 : 

; prt esti : Display the source Line, if source stepping is indicated. 

; 66 ig if .TYPE_SOURCE AND 

; 6700 14 (( EVENT_ENTRYCEVENTSV_OVRD SOURCE) AND 

3 6701 15 3 ENT ENTRYCEVENTSY_STEP_SOURCE]) OR 

; 670¢ 16 4 ((NOT .EVENT_ENTRYCEVENTSV_OVRB_SOURCE)) AN 

: 670 17 3 .DBGS$GB"STP_PTRCEVENTSV_STEPPING_SOURCE))) 
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a 3 
GEVENT 16-Sep-1984 00:59: AX-11 Bliss-32 V4.0-742 Page 185 | 
iN 12-80 8=138e 90:78:58 DEBUG. SRC IDBGEVENT 83271 . 3B 
B G E MOVAB OBGSIS_IT_ENTRY, R11 ; 
A 6 G 09 8 MOVAB ODBGSNEQLINE, R10 : 
9 G 1 MOVAB  DBGSRUNFRAME+64, R9 ; 
: FF 1 MOVAB TYPE § : 
G 00 9€ 3 MOVAB DBGSPRINT, R7 : | 
6 0000 EF 9E MOVAB PAC R : 
NE eS a mae 08 
4 4 AC ee 035 MOVAB ebcnes, R4 : 
01 03 Ae } 90 9 BLBC (R4), 1$ ; | 
000000006 00 F 1$: BISB2 #128 $GL_OUTPRAB+7 + 6513) 
EC AD 010€0009 F 58 itd MOVL so] £54996 STRING DESCRIPTOR : $337 
FO AD D4 OO4E CLRL  STRING_DESCRIPTOR?4 + 6520 
4 95 00051 TSTB = (RG) + 6529) 
5 12 0005 BNEQ 2$ : | 
50 6 5 004 MOVAB P.ACI, RO : -~ 
01 64 91 O005A 28: CMPB (RG), #1 : 6531) 
06 12 0005D BNEQ : 
50 06 Ad YE 0005F MOVAB P.ACJ, RO + 6532 
19 11 00063 BRB : 
02 64 91 00065 3$: CMP —s« (RG), #2 + 6533) 
06 12 00068 BNEQ : 
50 0C Ab YE 0006A MOVAB P.ACK, RO + 6534) 
O€ 11 9006 BRB ; 
03 64 91 00070 4$: CMPB ss (RG), #3 : 6535) 
05 13 0007 BEQL 6 5$ : 
7E 01 CF 007 MNEGL #1, -(SP) : 
06 11 00078 BRB : 
50 12 A6 YE OOO7ZA 5S: MOVAB P.ACL, RO : 6536. 
50 DD 9007 68: PUSHL RO : 
FC Ab OF 00080 7$: PUSHAB P.ACH + 6526 | 
67 02 FB 0008 CALLS #2, DBGSPRINT : | 
01 Ad 95 00086 TSTB ~—s_-« 1 (R4) : 6550) 
03 13 00089 BEQL «=s«BS$. ; 
OOAF 31 00088 BRW 3$ : 
03 02 Aa 91 O08 8$ CMPB (RG), #3 : 6557 | 
03 12 0009 BNEQ $ ; 
0097 31 00094 BRW 21$ ; 
06 19 A2 05 fl 0097 9$: BBC a5 25(R2), 10$ > 6584 | 
50 5D A SE 0009F MOVAB P.ACS, R : 6586 | 
15 11 OOOA BRB 12$ F 
7E 2c a2 ° C3 OOOA2 108 SUBL3 #2, 44(R2), <(SP) : 6590. 
68 Fe A CALLS #1. DBGSIS.IT_ENTRY : | 
06 0 f AA BLBC =—._—«aRO.*118 : 
50 66 Ab : OOAD MOVAB P.ACT, RO : 6592 | 
04 1 B1 BRB 12$ : 
50 6F Ab 9E 83 11$: MOV P.ACU, RO > 6594 | 
5 pb B7 12$:  PUSHL RO : 6588 | 
02 4 91 00089 CMPB. ss (4), #2 > 6567 
4 1 BC BEQL ~=s«s17$ ; | 
02 A OY B TST ¢(R4) : 6572 | 
06 1 C BNEQ 3$ F 
50 22, =A 9 ¢ MOVAB P,ACN, RO : 6573. 
20 ¢ BRB 18$ ; 
01 02 A& 91 000C9 138 CMPB so (R4), #1 > 6574 
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1 
06 12 000CD BNEQ 14$ 
50 2€ ne 5 iH ROVAB P ACO, RO 
02 02 Ad 91 oe 146$:  CMPB a4), #2 
06 12 00009 BNEQ 55 
50 3B OA H DB MOVAB P.ACP, RO 
15 4 OF BRB 18$ 
04 02 Ad 4 OOE| 15$:  CMPB (RA), 4 
5 4 ES BEQL 6$ 
50 1 CF OE MNEGL #1, RO 
OA 1 EA BRB 18$ 
50 49 AG 5 OE 16$: MOVAB P,Aca, RO 
50 59 A6 9E 000F2 17$: MOV P.ACR, RO 
50 DD O00F6 18$:  PUSHL RO 
1A Ab OF OOOF PUSHAB P.ACM 
67 03 FB 900rB CALLS #3, DBGSPRINT 
03 4 91 OOOFE CMPB 4), 
1 12 00101 BNEQ 
53 20 Ag D0 00103 MOVL (R2), FROM_ADDR 
FE A3 9F 00107 PUSHAB =2(FROM_ADDRY 
6B 01 FB 070A CALLS #1, DBGSIS_IT_ENTRY 
09 0 €9 0010D BLBC ~—_ RO, -:19$ 
70 Ab OF 00110 PUSHAB P.ACV 
67 01 FB 00113 CALLS #1, DBGSPRINT 
53 0¢ C2 00116 SUBL 2; FROM_ADDR 
53 DD 00119 198 PUSHL FROM ADD 
000000006 00 01 FB 00118 CALLS al BBGSPRINT_IDENTIFIER_PC 
28 A2 DD $0156 208 PUSHL  40(R2) 
000000006 00 01 FB 00127 CALLS #1, DBGSPRINT_IDENTIFIER 
03 64 91 OC1ZE 21$:  CMPB (Ro), #3 
05 12 00131 BNEQ 22$ 
79 Ab OF 00133 PUSHAB P.ACW 
6C 11 00136 BRB 33$ 
7E AB OF 01 8 22$ PUSHAB P.ACX 
67 11 00138 BRB 33$ 
01 01 Ad 91 00130 238 CMPB s«a0 (RG), #1 
63 12 o141 BNEQ  34$ 
03 64 91 00143 CMPB ss (RG), #3 
40 13 0146 BEQL 1$ 
05 02 As 91 0014 CMPB (R4), #5 
07 12 0014C¢ BNEQ 4$ 
50 0088 C6 % 14 MOVAB P.ACZ, RO 
11 001 BRB 9$ 
06 02 As 91 00155 248 CMPB (R4), #6 
07 12 00159 BNEQ 5$ 
50 0091 ¢6 9E 001 MOVAB P.ADA, RO 
A 11 0016 BRB 9$ 
08 02 A& 91 00162 258 CMPB (R4), #8 
07 12 166 BNEQ 6$ 
50 009A C6 H 16 MOVAB P.ADB, RO 
1D 11 0016D BRB $$ 
09 02 AG 91 16 26$ CMPB (R4), #9 
07 12 001 ; BNEO 7$ 
50 00A6 C6 H 17 MOVAB P.ADC, RO 
10 1 17A BRB 29$ 
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DBGEVENT 1b-se -1984 00:59: AX-11 Bliss-32 V4.0-742 Page 187) 
v04=000 13r808-138e 99:78:88 | OMadG Bk sbece vent asec 9° 20), 
07 02 A&G 910017C 27%:  CMPB (R4), #7 1 6666. 
5 4 1 BEQL ays : 
7E 1 cE 1 #1, =(SP) : | 
r? 7 1 BRB 5 
50 00B5 £6 9E 4) 8$:  MOVAB P.ADD, RO + 6667 | 
DD 0018C 29$:  PUSHL RO : | 
0083 cs OF 4 0$:  PUSHAB P.ACY + 6655 
67 FB 001 CALLS #2, DBGSPRINT : 
03 64 91 00195 31$: CMPB) ss (RG), #3 + 6674 
06 12 00198 BNEQ 32$ : 
0088 C6 9F 0019A PUSHAB P.ADE + 6676. 
78 (11 O19 BRB 39$ : 
00c0 C6 9F OO1A Q PUSHAB P.ADF t 6678 
2 11 OO1A4 33$ BRB 39$ : 
02 01 As 91 001A6 CMPB sd (R4), #2 + 6684 
6F 12 OO1AA BNEQ 40$ : 
OFFF BF OA AC B OO1AC BITW EXCEPTION. TYPE+2, #4095 + 6697 
48 12 001B BNEQ 6$ : 
50 08 Ac DO 00184 MOVL  EXCEPTION_TYPE, RO + 6700 
0000040c = &F 50 D1 00188 CMPL RO, #1036 : 6703. 
36 13 O01BF BEQL 6-35 : 
00000414 8F 50 1 001C1 CMPL RO, #1044 : 
20 13 0018 Bea. «= 35$ ; 
0000042c = &F 0 D1 OOICA CMPL RO, #1068 ; 
24 13 00101 BEQL = 358 ; | 
00000434 8F 50 Di 00103 CMPL RO, #1076 : 
1B 13 0O1DA BEaL «=-358 ; 
0000043¢ =F 50 01 0010¢ CMPL = RO, -#1084 : 
12 13 OO1E BEQL 35$ ; 
0000044c = 8F 50 D1 O001E5 CMPL RO, #1100 ; | 
09 13 OO1EC BEQL «= 358 3 | 
00000454 8F 50 Di OO1EE CMPL = RO, #1108 F 
05 12 001FS BNEG 36§ F 
53 0 DO OO1F7 35$:  MOVL ae TRAP_OR_F AULT ; 6705 
: 11 OO1FA BRB 37§ : 
53 1 DO OOI1FC 36$: MOVL #1, TRAP_OR_FAULT 3 6721 
55 69 DO OO1FF 37$: MOVL = DBGSRUNFRAME+64, ADDRESS + 6726 
00cS C6 OOF 00 02 PUSHAB P. : 6731 
67 91 FB 00206 CALLS #1, DBGSPRINT : 
01 3 01 00209 CMPL -TRAP_OR_FAULT, #1 : 6732 
0% 12 0020¢ BNEG 38S : | 
00D4 £6 9F 00 OF PUSHAB P.ADH 3 6734 | 
64 11 0021 BRB 39 : 
OODF cé OF 0 14 388: PUSHAB P.ADI : 6737 | 
67 1 Fe 18 39$: CALLS #1, DBGSPRINT : 
01 Ad 95 00218 40S: TSTB—s_-«1 (RG) > 6748 
OC 12 0 If BNEQ 41$ : 
02 02 A491 CMPB so 2 (RG), 2 > 6749 | 
0 i 0224 BNEQ 41$ ; 
55 04 A pg 6 MOVL ASCVIO_PC. ADDRESS > 6751 
55 DO C 41$: MOVL DBGSRUNF RANE +64, ADDRESS > 6754 | 
: DD fF 42$: PUSHL R : 6759 | 
DD 1 PUSHL ADDRESS ; 
0000v CF : FB 3 CALLS #2, PRINT_PC_AND_INSTRUCTION ; 
A FB CALLS #0, DBGSNEWLINE ; 6760 | 
2 02 AG 91 B CMPB (RG), 2 ; 6766 | 


4 
DBGEVENT 1b-se -1984 00:59: AX-11 Bliss-32 V4.0-742 Page 188 
v04-0 12-80 8=138e 9 33:4 DEBUG. SRC IDBGEVENT 83271 9° 20) | 
3 3F BEQL 43$ : 
0089 i 41 BRW 49$ : 
OA 18 OA 4 £1 00244 43$: BBC #4, 24(R2), 44$ + 6774 | 
19 18 «OA 5 E 49 BBS #5, 24(R2), 45$ t 6775) 
1 18 «OA A £ af BBS Wa; 24(R2), 46$ + 6776) 
- 50 000000006 0 og i 44$ MOVL DaGSGB, STP_PTR. RO 6777 | 
5 DD 45$ PUSHL ADDRESS t 6779) 
0000v ¢ 01 FB 0026 CALLS #1, PRINT SOURCE : 
00E3 6 9F 00¢6 46$:  PUSHAB P.ADJ + 6784 
67 1 FB 00269 CALLS #1, DBGSPRINT : 
f D4 0026C CLRL = (SP + 6785 | 
000000006 00 oD 0 6E PUSHL DBGS$GL_SIGN_FLAG + 6786. 
7E 000000006 09 9A 0 a MOV ZBL DBGSGB RADIR+2, -(SP) ; 6785 | 
000000006 00 04 FB 00 43 CALLS #4, DBGSPRINT_VALUE : | 
6A 00 FB 0028 CALLS #0, DBGSNEWLINE > 6787 | 
00F2 c6 9F 00288 PUSHAB P.ADK + 6788 | 
67 1 FB 0028C¢ CALLS #1, DBGSPRINT : | 
7E 04 0028F CLARL 30s = (SP + 6789 | 
000000006 00 oD 00291 PUSHL DBGS$GL_SIGN_FLAG + 6790 | 
7E 000000006 09 9A 00297 MOV ZBL DBGSGB RADIR+2, -(SP) : 6789 
000000006 00 04 FB O02A1 CALLS #4, DBGSPRINT_VALUE : 
6A 00 FB 002A8 CALLS #0, DBGSNEWLINE 3 6791 
01 64 91 OOZAB CMPB (RA), #1 ; 6796 | 
07 13 OO2AE BEQL : 
50 0101 c6 9 90280 MOVAB P.ADL, RO + 6799 
50 0108 C6 9E 002B7 47$: § MOVAB. P.ADM, RO > 6801 
50 DD O02BC 48$:  PUSHL : 
67 01 FB O002BE CALLS #1, DBGSPRINT : 6796 
52 dD 002C1 PUSHL R : 6806 
69 DD 002C3 PUSHL DBGSRUNFRAME+64 F 
0000v CF 02 FB 00 ¢5 CALLS #2, PRINT_PC_AND_INSTRUCTION 3 
6A 00 FB OO2CA CALLS #0, DBGSNEWLIN : 6807 
23 68 £9 99 CD 49$ BLBC YPE SOURCE, 5 : 6813 
OA ws 6A 04 €1 00200 BBC #4, 24(R2), 50$ > 6814 
10 18 OA 05 €0 00 DS BBS #5. 24(R2). 51$ : 6815 
14 18 OA 04 £0 O02DA BBS #4. 26(R2). 52$ : 6816 
50 000000006 00 DO O02DF 50$:  MOVL DaGSGB STP/PTR, RO : 6817 
09 60 A €E1 00266 BBC #10, (RO), ~52$ : 
69 DD OOCEA 51$:  PUSHL DBGSRUNFRAME+64 : 6820 
0000v CF 01 FB 99 EC CALLS #1, PRINT SOURCE ; 
68 D4 O02F1 CLRL =‘ TYPE_SOURTE > 6821 | 
04 002F3 52$: > 6829 | 
| 
| 


3; Routine Size: 756 bytes, Routine Base: DBGSCODE + 25EA 


0004 00000 INSQUE1:.WORD Save R2 : 6830 
8 AC D 9 MOVL QUEUE ADDRESS RO > 6856 
AO D MOVL § 8(RO)> NEXTS_ADDRESS ; 
6 AC D A MOVL ENTRY ADDRESS, Rd ; 6861 
8 Al 8 AO D MOVL (RO)> 8(R1) ; 
¢ Al D 1 MOVL RO, 10(R1) > 686 
A 1 0 1 MOVL 1. 8(RO) > 686 
an 1 p 1B MOVL 1, 12(NEXTS_ADDRESS) > 6868 
4 0001F RET ; 


; Routine Size: 32 bytes, Routine Base: DBGSCODE + 28DE 


dD 4 
DBGEVENT 16-Sep-1984 00:59: AX-11 Bliss-32 V4.0-742 Page 189 
vive) 13-808=138e 9 33:89 DEBUG. SRCIDBGEVENT .B 3271 . (21). 
; ory 6 9 } ROUTINE INSQUE1(ENTRY_ADDRESS, QUEUE_ADDRESS): NOVALUE = 
3; 671 6 § 1 ! FUNCTION 
; 6720 1! This routine adds an ro | into a queve. This routine is used when 
3 6721 6834 1! the forward and backward Links are not the Oth and 1st longwords in 
; of ¢ 6835 ; } the queve head and queue entry, but the 2nd and 3rd. 
3; 6726 $ 1 ! INPUTS 
3 6725 6838 1! QUEUE_ADORESS : Pointer to queue head. 
3 67 $ 6839 1! ENTRY_ADDRESS : Pointer to entry. 
3; 67 6840 1! 
; 6728 6841 1 ! OUTPUTS 
3; 6729 6 § 1 ! None 
; 6750 6 1! 
3; 6731 6844 BEGIN 
3; 67 ; 5 
; 67 6 § MAP 
3; 67 4 ENTRY_ADDRESS : REF QUEUE_HEAD, 
3; 6735 6848 QUEUVE_ADDRESS : REF QUEUE HEAD; 
3; 67 6849 
3; 6737 6850 LOCAL 
3 67 6851 NEXTS_ADDRESS : REF QUEUE_HEAD; ! Next entry's pointer. 
; 6739 O86 
3; 6740 685 
3 ores ett} Point to the current Ist (next) entry. 
3; 674 o828 NEXTS_ADDRESS = .QUEUVE_ADDRESS CL_QUEUE_FLINK1); 
3: 6744 685 
3 6745 6858 
3 ores ret Link the queue entry into the queue at the head. 
3 6748 6861 ENTRY_ADDRESS CL_QUEVE_FLINK1] = .QUEUVE_ADDRESS CL_QUEUVE_FLINK1); 
3 6749 rere) ENTRY_ADDRESS CL_QUEVE_BLINK1] = .QUEUE_ADDRESS; 
; 6750 686 
3; 6751 6864 
3 673 ? 5 Link the queue to the queue entry. 
3: 6754 gece QUEUE _ADDRESS CL_QUEVE_FLINK1] = .ENTRY_ADDRESS; 
3; 6755 6868 NEXTS_ADDRESS CL_QUEVE_BLINK1] = .ENTRY_ADDRESS; 
3; 6756 6869 1 END; 


i$eseoctgee 99:89:19 


Ax-11 
DEBUG. 


Bee Sbacev 


4.0-74 
NioaSoe1 


“taal 


90 
1) 


F 4 
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: $728 $ 0 } ROUTINE REMQUE1(ENTRY_ADDRESS). NOVALUE = 

; 6760 Ye 1 ! FUNCTION 

3; 6761 6875 1! This routine deletes an entry from a queue. This routine is used when 
3 ore 6874 1! the forward and backward Links are not the Oth and ist longwords in 
3 of0? 6 o? } the queue head and queue entry, but the 2nd and 3rd. 
3; 6765 8 1 ! INPUTS 

$ ores 6 4 1! ENTRY_ADDRESS : Pointer to entry. 

3; 676 6879 1! 

3; 6768 80 1 ! OUTPUTS 

3 O79? 6 3) 1! None 

3; 6770 6 § 1! 

3; 6771 488 BEGIN 

3 ore 4 

3; 677 6885 MAP 

3 6774 6 56 ENTRY_ADDRESS : REF QUEUE_HEAD; 

3; 6775 ; 

3; 677 6888 OCAL 

; 677 6889 NEXTS_ADDRESS : REF QUEUE_HEAD, 

: Tr ony QUEVE_ADDRESS : REF QUEUE_HEAD; 

3; 67 6 3 

3 ore ° 4, Point to the queue head and next entry. 

3; 678 6895 QUEUE _ADDRESS = .ENTRY_ADDRESS FL.QUEUE BLINK} 3 

3: 6784 38 NEXTS_ADDRESS = .ENTRY_ADDRESS (L_QUEUE_FLINK1); 

oe Be 

3; 678 99 ! Unlink the entry from the queue. 

; 6788 6900 ! 

3; 6789 6901 QUEVE_ADDRESS CL_QUEUE_FLINK1] = .NEXTS_ADDRESS; 

: ory 239 SE RTS POORESS L-QUEVE_BLINK1] = .QUEUE_ADDRESS; 


0000 00000 REMQUE1:.WORD Save nothin 
00 MOVL 


50 046 A p0 NTRY_ADDRESS, RO 

50 08 ad 7D 99 MOVO (RO)? NEXTS ADDRESS 
08 Al 3 00 OA MOVL §NEXTSADDRESS, 8(QUEUE_ADDRESS) 
0c AO 1 20 0 05 MOVL QUEUE“ADDRESS. 12(NEXTS_ADDRESS) 


Routine Size: 19 bytes, Routine Base: DBGSCODE + 28FE 


Page 191. 
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4 
GEVENT 1B-se -1984 00:59: AX-11 Bliss-32 v4.0-742 
daa tty 1 ~8ep-19 4 9 33:29 DEBUG. SRCIDBGEVENT .B32¢1 
RINT_SOURCE (ADDRESS): NOVALUE = 
IN 
79 "a 
78 g 5 -FP = DBGSF INAL_HANDL; 
7 691 DBGSSRC_TYPE_PC~SOURCE (. ADDRESS, .ADDRESS, 0, TRUE); 
6800 6911 END; 
0000 90000 PRINT_SOURCE: 
-WORD Save rag 
6D 000000006 00 9€ 0000 MOVAB DBGSFINAL_HANDL, (FP) 
1 0D 000 PUSHL #1 
E D4 0 LcRL -(SP) 
8% AC 0D 38 PUSHL ADDRESS 
4 AC DD 0001 PUSHL ADDRESS 
00000000G 0 04 FB 0001 CALLS #4, DBGSSRC_TYPE_PC_SOURCE 
04 OOO1A RET 


; Routine Size: 27 bytes, Routine Base: DBGSCODE + 2911 


a a a a le a ie a a 
Rn er 
~ 4 
323 
AAAS 
we 
— 
2 
— 
owe 
cmz 
—om 
re 
"270 


6904 
6909 | 
6910 | 


6911 


H 4 
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1erseR= 438s PSiFB:49 = FANSNA Shigsez2 ve sOore2 alt 48 


eae 
$ 
= 


Print the address, but symbolize it first. 


Go So Go G0 G0 00 G0 


: ; 6912 1 ROUTINE PRINT_PC_AND_INSTRUCTION(ADDRESS, EVENT): NOVALUE = 
: 6 e916 nr 
: 6805 6915 ADDRESS : REF VECTOR C, BYTE) 
; 96 6916 EVENT: REF EVENTSEVENT_DESCRIPTOR; 
: 68 691 LOCAL ADDRESS 2; 
: $808 691 BUILTIN - 
; 6810 69 3 
3; 6811 69 
; 681g 69 ; | 
3 $8) 69 ! Establish a handler for errors. This is in case the instruction 
3; 6814 6924 ! we have stepped to is invalid, and the INS_DECODE routine signals 
3; 6815 6925 ' an error. 
; 6816 69 § i 
: 681 69 .FP = PRINT_PC_INST_HANDLER; 
3 6818 69 8 
: 6819 69 
: esse 4 : Display ‘ROUTINE’ if the current address points after an entry point. 
3 68 : 69 ; if .EVENT CEVENTSV_BREAK_ADDRESS) 
> 6824 6934 DBGSPRINT (SAC (‘routine ')) 
; re 3 3 3 ELSE 
: 68 $ 69 BEGIN 
: 6828 6938 IF DBGSIS_IT_ENTRY ((ADDRESS_2 = .ADDRESS = 2)) 
> 6829 6939 TH 
3; 6850 6940 DBGSPRINT (SAC (‘routine ‘)) 
> 6831 6941 ELSE 
: 68 : 694 ADDRESS_2 = .ADDRESS: 
3 694 END; 
; 38 6948 if .EVENT CEVENTSV_BREAK_ADDRESS) 

; 6840 6990 DBGSPRINT_IDENTIFIER (.EVENT CEVENTSL_PRIMARY)) 

: 6842 695 DBGSPRINT_IDENTIFIER_PC (.ADDRESS_2); 

3; 684 695 

5 6844 6954 

: ont? $922 : Display the instruction we're at, if we're not Line stepping. 

3 ese) 699 if .DBGS$GB_STP_PTR CEVENTSV_STEPPING_LINE] THEN RETURN; 

> 6849 695 DBGSPRINT(SAC (': ")); 

> 6850 6960 DBGSINS_DECODE (. ADDRESS, TRUE, FALSE); 

3; 6851 6961 END; 


-PSECT DBGSPLIT.NOWRT, SHR, PIC,0 


38 65 6€ 69 74 75 6F i; 8 RE P.ADN: .ASCII <8>\routine \ 3 
0 65 6€ 69 74 75 6F 7 98 P.ADO: .ASCII] <8>\routine \ 3 


Hé-$e0-1964 00:59:19 YAR-I) BLigs=32 V4. 0-742 Page 


20 3A 02 OO3SA4 P.ADP: .ASCII <2>\: \ 3 


«PSECT DBGSCODE,NOWRT, SHR, PIC,0 
003C 00000 PRINT_PC_AND Save 
RB Re as, R4,R5 


WOR s 

samgggnne op se gong avg pew : 

60 v CF ; 31 ROVAB PRINT pe INST_HANDLER, (FP) ; 

04 19 =A o§ E 1 BBC 5. stb ; 
tg 99 988 pear ; 

53 04 ac : C3 3 1$: suas san DBRESS. ADDRESS_2 ; 
000000006 09 i FB 029 CALLS i. aon IT_ENTRY : 
09 «AG SF $0 PUSHAB Be Orn. ; 

65 01 Fe 0036 2$: CALLS #1, DBGSPRINT : 

04 11 000 BRB ; 

53 04 aC 00 0038 3$: MOVL ADDR $s ADDRESS_2 F 

0c 19 A2 0S €E 0 F 4$: BBC r ; 
28 A2 0D 00044 PUSHL  40(R2) : 

000000006 00 i Fe 0047 CALLS a, DBGSPRINT_IDENTIFIER ; 

3 pd 00050 S$: PUSHL ADDRESS F 

000000006 Q 1 Ff 905 CALLS SeSefa int IDENTIFIER_PC F 

30 000000006 09 09 9059 6$: HOVE baéses 8_s1P PTR, RO : 

12. AG SF bose PUSHAB ee ; 

$5 1 FB 9067 CALLS #i, DEGSPRINT ; 

E 1 7D O06A 6A MOva 1 = (SP) F 

04 AC DD 960 PUSHL ApbRE : 

000000006 00 03 FB 000 9 CALLS @# bBeSINS _DECODE : 
04 00077 78: RET : 


; Routine Size: 120 bytes, Routine Base: DBGSCODE + 292C 


-Sep-1 759: AX-11 8 igse3 95 
athens Q9:50:38  YOtaNd S4SpaEE Urals? a3 
ROUTINE PRINT_PC_INST_HANDLER(SIG_ARG_LIST) = | 

i FUNCTION 
; Handler for errors that occur during the APE P =AND INSTRUCTION 
routine. We need a handler so that after dis orita the £ orrers 


we will unwind to * the cot her of PRINT_PC AND IN A. ° 
continue with any eventpoint processing Ehat was being 7 he 


SIG_ARG_LIST ~ He signal argument List that we get from 


t 

1 

1 

' 

} INPUTS 
the condition handling facility. 
' 

i 


; 1 

3 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

; 1 

oO } . 

; 1 | outpuTs 
; ones 6975 1! 

3 686 0978 BEGIN 
: ones 697 MAP 

: 686 SIG_ARG_LIST: REF BLOCKC,BYTE); 
; : If informational just resignal 


if .SIG_ARG_LISTCCHFSL_S1G_NAME) 
RETURN SS$_RESIGNAL; 


: If we are in the middle of an unwind then continue unwinding. 
IF .SIG_ARG_LISTCCHFSL_SIG_NAME] EQL SS$_UNWIND 


THEN 
RETURN SS$_CONTINUE; 


! Otherwise, display a message saying that an error occurred oartng 
instruction decode and then display the actual error that occure 
SIGNAL (DBG$_ ERRINSDEC); 
DBGSPUTMSG(7S1G_ARG_LI5T); | 
: Then unwind to the routine that called PRINT_PC_AND_INSTRUCTION. 


SETUNWIND 
RETURN sos tout iNUE: 


0004 00000 PRINT_PC “won” a oy : 
52 7 As 4 1 ans * R2 ; 698 
98 4 A Bla : 

+} 123 8° n 


00000920 = &F CMPL 4(R2), #2336 


& 


I$rSe0-198 OG:88:10 YARED Sh igsc8e ve.0a742, 


000280AB8 f bb if Push $ 64011 
000000006 00 1 4 9 CALLS #1, LIBSSIGNAL 
000000006 00 ¢ Fe 9 ents #1, DBGSPUTMSG 
000000006 98 05 fe CALLS ae SYSSUNWIND 
4 0005¢ RET 


; Routine Size: 61 bytes, Routine Base: DBGSCODE + 29A4 


es et et 


COOOCCoCoooooo 


MEUM $9 OONOUES WN —“OCONOUES WN —O0OOn 


Ooooo 
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7 
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? 
7 
? 
? 
7 
? 
7 
7 
? 
7 
? 
? 
7 
7 
? 
7? 
7 
? 
? 
70 


SEF 


WR SO OONOUS WO O® 


pe 
oOo 


DAMMANN 


PRORPONPIPOPONOPOPONONOPOPONONOPOPONONIPIPONIPOPUPONONOROPORIPUPONNUPUNONU RUPP = = 


SN 


4 
1B-Sen-1984 00:59:10 yayett 


ROUTINE SHOW_EVENT_ENTRY(EVENT_ENTRY): NOVALUE = 


i FUNCTION 
This routine displays an event entry as in: 


SHOW C BREAK {| TRACE | WATCH J 


ide 


T 
EVENT_ENTRY : Pointer to event entry. 


i 

i 

i 

i 

; INPUTS 
i 

i OUTPUTS 

Displays the event entry via DBGSPRINT. 


BEGIN 
MAP 
EVENT_ENTRY: REF EVENTSEVENT_DESCRIPTOR; ! Event Entry Pointer 


LOCAL 
VMS_DESC: DBGS$STG_DESC 
VAL“DESC: REF DBGSVALDESC, 

: When Entry Pointer 


1 
i 
ENTRY: i 
REF EVENTSWHEN_DESCRIPTOR, ! 
DO_LIST_ENTRY: ! DO List Entry Pointer 
REF EVENTSDO_LIST_ DESCRIPTOR, ! 
STRING_DESCRIPTOR: BCOCKC8,BYTE t! String descriptor 
OUTPUT_BUFFER: :_ Temporary formatting buffer 
ECTORETTY OUT _MIDTH.BTTED, | 


Vv 
DUMMY; ummy routine argument 


: Skip STEPS, SKIPS, and IGNOR entries. 
if -EVENT_ENTRY CEVENTSB_CMD_TYPE] EQLU EVENTSK_TYPE_STEPS OR 
EV EQLU EVENTSK_TYPE_SKIPS OR 
EQLU EVENTSK_TYPE_IGNOR OR 
EQLU EVENTSK_TYPE_SSINT 
RETURN; 


: Setup a string descriptor. 


STRING_DESCRIPTOR pscse pryeey = DSCSK_DTYPE_T; 
STRING_DESCRIPTOR [DSC$B_CLASS) = DSCSK_CLASS_S; 
STRING_DESCRIPTOR [DSCSA_POINTER) = 0; 
STRING_DESCRIPTOR CDSCSW_LENGTH] = 0; 


' for werchpoint events, see whether the watched vos 
' is still valid. If not, convert the Primary to a Volatile 
: Value Descriptor and display an informational to that effect. 


IF .EVENT_ENTRYCEVENTSB_SUB_KIND) EQL EVENTSK_ACC_MDFY 


4 
ep-1984 00:59: AX-11 Bliss-32 V4.0-742 P 198 
Haat 13378553 DEBUG. SRC IDBGEVENT 83251 79°26) 


V_VALDESC: REF DBGSVALDESC; | 


Copy the Primary since PRIM_TO_VAL sometimes has the side effect 
of went | hay its argument. This copy is done into temporary 
memory (fourth ger eneter is FALSE). Then call PRIM_TO_VAL 

and get a Volatile Value Descriptor (this will have 

the real address of the watched variable embedded in it). 
PRIM_TO_VAL is a cover routine for DBGSPRIM_TO_VAL; it has 

a handlér which sets INVALID_FLAG if the Primary is no Longer 
: valid Chas gone cut of scope). 


DaGSNCOPY DESC (EVENT ENTRYCEVENTSL PRIMARY], PRIMARY, DUMMY, FALSE); 
PRIM_TO“VAL (.PRIMARY, DBGSK_V_VALUE_DESC, V_VALDESC); 


! Check whether the Primary is still valid, i.e., whether it still 
points to the same storage as it did when the watchpoint was set. 


if .INVALID_FLAG OR 


SNS 
SOooooooooo0°oo 
© 0 © 00 00 09 00 G9 C0 CD CD CD CO 
OOONOUNE -—o 
yo oP ot oy ot oT ot ot ot et et ot ot ot tt ee eee wv) 


091 CHSNEQ (1g. V_VALDESCCDBG$A_VALUE_VMSDESCJ, 
12, EVENT_ENTRYCEVENTSA_VASDESCJ) 
709 THEN 
7094 BEGIN 
7095 
7096 
Aad Print an informational saying the Primary is invalid. 
7099 DBGSPRINT (SAC ('XDEBUG-I-WATCHVAR, watched variable ")); 
7100 DBGSPRINT IDENTIFIER( .EVENT_ENTRYLEVENTSL_PRIMARY]); 
aye F gj INVALTO_FLAG 
7108 DBGSPRINT ($AC (* has gone out of scope')) 
7105 DBGSPRINT (SAC (° now points to a different address')); 
7106 DBGSNEWLINE(); 
ay tA 
7108 
198 Free up the Primary. 
ath if DBGSNGET_SYMID (.EVENT_ENTRYCEVENTSL_PRIMARY], SYMID_LIST, DUMMY) 
ag DBGSSTA_UNLOCK_SYMID (.SYMID_LIST); 
pile DBGSNFREE_DESC (.EVENT_ENTRYLEVERTSL_PRIMARY], DUMMY); 
711 
ab : Replace it with the Volatile Value Descriptor. 
at V_VALDESC = DBGSMAKE_VAL_DESC(EVENT ENTRYCEVENTSA_VMSDESC], DBGSK_V_VALUE_DESC); 
7120 IF DBGSNGET_SYMID (.0_VACDESC, SYMIB_LIST, DUMMY) 


4 
16-Sep-1984 00:59: AX-11 Bliss-32 V4.0-742 P 199 
1 30071 38e 99532: 48 DEBUG. SRCIDBGEVENT 83251 $98 (26) | 


7013 

rere DBGSSTA_LOCK_SYMID (.SYMID_LIST); 

ota PEGSNCOPY DESC (.V_VALDESC, EVENT_ENTRYCEVENTSL_PRIMARY], DUMMY, TRUE); 

7017 END; 

7 \8 

701 

nl Y Print the event type: breakpoint, tracepoint, or watchpoint. | 
70 2 SELECTONE .EVENT_ENTRYCEVENTSB_CMD_TYPE] OF | 
4 t SET 

6 5 CEVENTSK_TYPE nag 

4 $ DBGSPRINTTSAC("breakpoint')); 


CEVENTSK_TYPE_TRACE]: | 
DBGSPRINTTSAC('tracepoint')); 


CEVENTSK_TYPE_WATCH]: 
DBGSPRINTTSAC('watchpoint')); 


TES; 


Display the event kind (access, exception, instruction). 
SELECTONE -EVENT_ENTRY CEVENTSB_CMD_KIND] OF 


! This is an access (read, write, modify, execute) kind 
of event point. Display the address. 


CEVENTSK_KIND_ACC): 
BEGIN 


! Print the access kind if read, write, or modify. If the address 
i is an entry point, indicate that it is a routine. 


if EVENT ENTRYLEVENTSB_CMD_TYPE] NEQU EVENTSK_TYPE_WATCH 


MEW 0 OONOAUE WIN ( O OOBNOAU EWN OOO NOAOUE WN SO OONOUS WN 


BEGIN 
seLecTone -EVENT_ENTRYCEVENTSB_SUB_KIND] OF 
CEVENTSK_ACC_READ]: 
DBGSPRINT(S$AC(* on read of ')); 


CEVENTSK_ACC_ WRIT): 
DBGSPRINT(SAC(* on write of ')); 


CEVENTS$K_ACC 4 AS E 
DBGSPRINT(SAC(* on modify of ')); 


CEVENTSK_ACC_EXEC): 
DBGSPRINT(SAC(* at ')); 


Se tae be” be be be tee i ee be be i i i pS > > ee 
ee ee ee ee ee a ee ae ee ee a ae a et eS a ce a a ee a et ee a a a a a ee a ed a a 


VSN PYVVISSLIS LAPP AMIN YAY ANIL EE EEE EEE NAA AAA AAAI III 
BRR RREREE EEE EE PUWUIWNUIWNIWNIUINONONORURORORONOPonononononoRoRoPononononononononufnufnunnnunwld eB 
0 


NOUS WN OOO 


5 
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‘q 
: 7070 7178 4 | 
3; 7071 wag 4 CEVENTSK_ACC_RTRNJ: 
3 rene ret : DBCSPRINT(S$AC(" on return from ')); | 
Rie AK ws 
: 707 7184 4 END | 
Re HE 
; Ate a 2 : For watchpoints, simply say ‘watchpoint of*’. 
> 7081 7189 ELSE | 
3; 708 7190 DBGSPRINT(SAC (° of ')); 
a | 
: 7085 o198 ! We print the address next. If the address is a routine address 
3 7086 7194 ! (a PALLS/CALLG entry point), we refer to it as ‘'routine Xxx", 
; 7087 7195 ! where XXX is the routine name. If it is not a routine, we omit | 
; rose ab : the “routine’’ designation. | 
: 7090 7198 if .EVENT_ENTRYCEVENTSV_BREAK_ADDRESS) OR | 
H Aad ate ' DBGSIS_IT_ENTRY( EVERT_ENTRYLEVENTSL_ADDRESS] - 2) | 
3 7093 7201 DBGSPRINT(SAC('routine ')); | 
: 7095 +508 i DBGSPRINT_IDENTIFIER( .EVENT_ENTRYCEVENTSL_PRIMARY)); 
HB 
: 7098 7206 ! Check for the /SOURCE or /NOSOURCE override switch. If set, we 
3 Aga este print ‘‘Csource]" or “‘Cnosource]'’, as appropriate. 
: 7101 7209 if EVENT ENTRYCEVENTSV_OVRD, SOURCE] 
; F108 7211 4 BEGIN 
: oie sig ¢ i -EVENT_ENTRYCEVENTSV_STEP_SOURCE) 
: rie fae : DBGSPRINT(S$AC(" Csource]')) 
: 7108 7216 4 ELSE 
3; 7109 7217 4 DBGSPRINT($AC(* Cnosource]')); 
3 7110 7218 4 
3 aby g }} END; 
: ag 7 A END; ! End of case for access kind of event 
eer: 7558 
: eis 4 24 This is an instruction type. 
: 7118 3 6 CEVENTSK_KIND_INS): 
3 7119 7 BEGIN 
ne Bes 
: Al 4 g ? Display the /SOURCE or /NOSOURCE qualifier if specified. 
; 7196 , 4 1F EVENT ENTRYLEVENTSV_OVRD_ SOURCE] 
: 156 7234 4% BEGIN 


5 | 

GEVENT 1$-sep-1984 00:59: AX-11 Bliss-32 v4.0-742 Page 201 
vOe~000 12286871382 99:93:88 DEBUG. SRC IDBGEVENT 83251 190 58) 
7 IF_.EVENT_ENTRYCEVENTSV_STEP_ SOURCE) | | 
DBGSPRINT($SAC('/source')) 


Nou 


LSE 
DBGSPRINT($AC('/nosource')); 
END; 


Display the /SOURCE or /NOSOURCE qualifier if specified. | 

sf ge VENT ENTRYCEVENTSY OVRD_MOSYSTER) | 
BEGIN 

TF je VENTWENTRYCEVENTSV_STEP_NOSYSTEM] | 

DBGSPRINT($AC('/nosystem')) | 

| 


LSE 
DBGSPRINT(S$AC('/system')); 
END; 


Display the /OVER or /INTO qualifier if specified. 
iF .EVENT_ENTRYCEVENTSV_OVRD_OVER] 
THEN 


POPIPIPIPIPOIPIPINININIPININININININININIPINSPUININNIPD 


NNN NIAAA AAA A AAAI BS BEEP EEE 


BEGIN 
IF .EVENT_ENTRYCEVENTSV_STEP_OVER] : 
DBGSPRINT($AC(" /over")) 


MIPUMOIPONINONONY: 


WN SO OONOUVE WN OO OONOUSWN “OOONOUSWIH OOO 


LSE 
DBGSPRINT(SAC('/into')); 


SSS SS Fe eS SBP SEE SESE SF Lens 
MEWUIN 0 OONOA UE WR $0 OONO UE WR | O OONO UE WN “OO OVOUS WO 


2 
: END; 
2 
7 2 ! Display the instruction type (calls, branches, all, or user 
; 2 list. 
0 3 DBGSPRINT (SAC (* on !AC"), 
2 SELECTONE .EVENT_ENTRY CEVENTS$B8_SUB_KIND) OF 
EVENTSK_INS CALL]: 
4 $A riMse areas 
5 CEVENTSK_INS_BRANJ: 
7 Ag peincheg:"): 
CEVENTSK_INS_EVRY): 
78 nstructions'); 


A 
CEVENTSK INS_USER): 

ot T’instructicn(s):"); 
CEVENTSK INS -LINE : 
om $AC T'lines'); 


i i i | ~N 
PPPPLPE PPP PELE PP SPEP LPP LPPLP PPP PPP LRP PHPPPP PLP SAS P HP HPSS PED PPD | 
Sn Bn nin Pn, Dn, Din, Dina Pin ay Sn, Hn, Sn nn i Ii Py Pn Sn, Si i i Pi, Pi nn ine Din iin, in. in in itn itn Din Dilan iit, it itp. tn itn Sint tn tn Jit itn Sin St te | 


WINN WIA NAIA AIAN NIAAA BB BB BB BWW BS BBB EEE BWW BREED 
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vives 1 : 3b 9 33:88 SRCIDBGEV . 385 
f this entry is an instruction type (/CALL, /BRANCH, etc.) and 


4-Sep-1 DEBUG. ENT.B32;1 
); 
END; 
} This is an exception type. 
CEVENTSK_KIND EXC); 
DBGSPRINTTSAC(" on exception')); 
TES; 
If this entry is silent, say so. 
: | 
' has an opcode bit map (i.e., is not for all instructions), 
display the opcode mnemonics indicated. 
4 
4 
4 


SESS Feces sa teores 


} If this entry is temporary, say so. 
if -EVENT_ENTRYCEVENTSV_ONCE_ONLY] THEN DBGSPRINT(SAC(' Ctemporary]')); 


PMOPRININOROPIPIRININUPU RD — 


IF .EVENT_ENTRYCEVENTSV_SILENT] THEN DBGSPRINT(SAC(' Csilent]")); 
IF .EVENT_ENTRY CEVENTSB_CMD_KIND) EQLU EVENTSK_KIND_INS AND 
were eentne EVENTSL_OPCODE_LIST] NEQA 0 

BEGIN 


tt 


WA 


' Declare a pointer to an opcode List, and an opcode 
variable. 


AAAI AN AAW 


AAA AA. AA WAP PINPINOPONONNININD 


DNA MAE WN 9 OONOA UNE WIN OOD NAUE WN $$ O OONOUS WO 


OCAL 
OPCODE_LIST: REF BITVECTOR (512), 
COLUMN; 


URN SOWNOAR WN HOSRUE AF WVU LORIE ARO OOo I 


Point to the opcode List, and set the column to 0. 
OPCODE_LIST = .EVENT_ENTRY CEVENTSL_OPCODE_LIST); 
COLUMN”= =1; 
INCR OPCODE FROM 0 TO 511 DO 
IF .OPCODE_LIST C.OPCODE] THEN 
LOCAL INDEX; 
COLUMN = (.COLUMN + 1) AND 7; 
UMN EQLU 0 THEN DBGSNEWLINE(); 
we 


ene 


E KIND _TABLEC.OPCODE); 
'RD') 


IF .COL 
DEX = +08 
DBGSOPCODE “NAME_TABLEL.INDEX,0,0,0,0)); 


IN 
DBGSPRINT ( 
END; 


SSNS SSNS SSN 
ro 


PTT TETETETETEISICICIE TE IEICE Ie IIe IIIc Terre rererrirecrererereirrerriciiiiiriirirlir tore 
I I RI RIN PNP PP PO RD Dh Dh we | 
MITIPUPUPONINONS 


PORORORORORURORORORUNONORONORONONONONUNUND 
4 MNMOPONONUN 2 
COO BFUSSSSeNo 


1e3ep-198e §3:16:59 — Yoeaug. sreloaGe vent asset Page oo) 
END; 


DBGSNEWLINE(); 
END 


Otherwise, just print the Line. 
ELSE 

DBGSNEWLINE (); 

: If the after count is not the default (1), print it. 
if EVENT ENTRY CEVENTSL_AFTER_COUNT] NEQU 1 


ODONAVES WH 0 ODONOUES WN 


BEGIN 
DBGSPRINT(SAC(* /after: !UL'), .EVENT_ENTRYCEVENTSL_AFTER_COUNTJ); 
DBGSNEUL INE); 


wn 


If there is a WHEN entry, print it. 
if EVENT _ENTRY CEVENTSL_WHEN] NEQA 0 


yA Re Ay et tee Ae , ak te ee 


o 
ww 


DBGSPRINT(SAC(” when (!AD)"S, .STRINGLOD = 1, STRINGL1)); 
repent 


74 
77 
78 
79 
ei 
38 


WWAWIAAw 


If there is a DO List entry, print it. 
if .EVENT_ENTRY CEVENTS$L_DO) NEQA 0 
THEN 


0000 
MEWN— 
nm 
od 
~ 
fa 
= 
ao 
PS) 
m 
i | 
< 
m 
o 
st 
So 
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_“ 
+ 
S 
J 
i 
ee 


DO_LIST_ENTRY = .EVENT_ENTRY CEVENTSL_DO); 
TRING = .DO LIST_ENTRY CEVENTSL DO LIST POINT); 
RGLO)7= 1, 


oO 


J STRINGC1)); 
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-PSECT DBGSPLIT.NOWRT, SHR, PIC,0 


a a 


F 5 
1erSep-1986 12:16:58 — EDeeuG. Sec SoeGEvENT 08271 Pane $8) 


41 $7 49 2d 47 45 66 3A7 P.ADQ: LA \SZDEBUG-1-WATCHVAR, h iable \ 
o,f 44 $3 ¢ : $3 é ' SCII EBUG-1 C watched variable 
6F 20 65 6€ of 3 p DOSCC P.ADR: .ASCII <22>\ has gone out of scope\ 
73 74 6 fF 79 F oA \" i iff 
fo ¢ $3 . i Sci! now points to a different address\ 
74 6€ 69 OF 7 <10>\breakpoint\ 
7%, 66 69 OF 7 ei ? <10>\tracepoint\ 
74 69 6F 7 4 <10>\watchpoint\ 
66 6F $6 1 $ of F <12>\ on read of \ 
F 9 4 69 F <15>\ on write of \ 
0 66 69 64 6F 6D of of rd pe on meet ty of \ 
a 
20 6€ 72 75 74 65 72 6E 6F <16>\ on return from \ 
rs 6F 
F 
7 
6E : 


SONA ANN RPP OOO NE NO NONE 


FMAM BBE OOOO" WO NUON Orn 
>>>>>>>>r>rr>rr FY YY YYryPY 


@ 
PIP APIPINIPINIA PAA ARMIN IPININININ NPININININININI SINS NONI IIE: EP 
OOO OOOM 9 OOMVMUO TNR WH HROOWMOOCOCOCOCOCOVS noc o0—u 


yo gy ey 
DOMUNM OS MF WOOP VNWANVNO OND OSI OLMIO PS S SF FLOW SNCS 

baal 

vo 

e*eeeeeeee = 

aoa 

J i=) 

Cc wn 

e*eee#ee#skeste#e 


BINA LSIISTRSASA=ASASRAS LSA FNA SSIS 


P : ASCII 
p : ASCII 
p : ASCII 
P.ADW: rth 
P.ADX: .ASCI 
P.ADY: ASCII 
P.ADZ: .ASCII 
P.AEA: .ASCII 
4 P.AEB: .ASCII <4>\ of \ 
20 6 $6 $9 3 P.AEC: .ASCII <8>\routine \ 
5 § § P.AED: .ASCII <9>\ Csourcel]\ 
5D 65 6 2 6F 7 P.AEE: .ASCII <11>\ Enosource]\ 
§ 8 7 6F P.AEF: .ASCII <7>\/source\ 
65 $3 F 6F 6€ P.AEG: .ASCII <9>\/nosource\ 
60 65 74 7 3 F of 0490 P.AEH: .ASCII <9>\/nosystem\ 
6D 65 74 9 O4A7 P.AEI: .ASCII <7>\/system\ 
72 76 «6F OGAF P.AEJ: .ASCII <5>\/over\ 
F 6— 69 0485 P.AEK: .ASCII <5>\/into\ 
43 41 1 20 6E 6F 04BB P.AEL: .ASCII <?7>\ on !AC\ 
3A ; 6¢ 6C 61 O4C3 P.AEM: .ASCII <6>\calls:\ 
3A 73 «6 § § E $1 2 8 O4CA P.AEN: .ASCII <9>\branches:\ 
6— 6F 69 74 6 § 4 ; 6E 0404 P.AEO: .ASCII <12>\instructions\ 
6— 6F 69 74 63 75 72 74 73 6E Be P.AEP: .ASCII <15>\instruction(s):\ 
7 $3 6— 69 O4F1 P.AEQ: .ASCII <S>\Lines’ 
69 74 7 5 63 Ht: 6 8 $f F 33 P.AER: .ASCII <13>\ on queget tents 
5D 74 6€ 6c 6 :] 505 P.AES: .ASCII Se pt ions 
79 72 72 6F 70 60 65 74 58 OSOF P.AET: .ASCII <12>\ CtemporaryJ\ 
44 41 21 SF 82 P.AEU: .ASCIE <S>\!_!AD\ 
20 3A ; 65 74 66 61 $f 0 P.AEV: .ASCII <14>\" /after: 'UL\ 
41 21 2 $y gf § 68 77 32 P.AEW: .ASCII <13> when ('AD)\ 
F P.AEX: .ASCII <11>4 do (!AD)\ 
29 44 41 21 0 6F 64 5 11 


.PSECT DBGSCODE,NOWRT, SHR, PIC,O 
OFFC 00000 SHOW_EVENT ENTRY: 
WORD 


: Save R2 R3,R4,R5,R6,R7,RB,RI,RIO,R11 ; 7007 

B 99 9E MOVAB DBGSNGET SYMIO, 1 : 
A G E HOVAB DBGSPRINT IDENTIFIER, R10 : 
9 F 9€ MOVAB INVALID FCAG, R ; 
8 G E 0001 MOVAB ODBGSNEWCINE, RB ; 

G E 3 MOVAB DBGSPRINT, &7 ; 
6 EF 9€ MOVAB OP Apa R ; 
7 FF CE ¢ MOVAB -168(§P), SP : 
4 04 AC g 1 MOVL 5 ENT ENTRY, R4 > 7043 
5 4 A 9 5 MOVAB (ROT, RS : 


Rte re eee | 


G-sep-1964 00:59:19 YAN-11 OLine=52 4-0-7242 ree 3 


cmPpB.Oié«R'S‘),. «#3 : 
BEQL §~=sés«é18 : 
CMPB sé RS), #4 > 7064) 
BEQL «=Ssésé18 ; | 
CMPB ss (RS), #5 + 7045 
6 BEQL=Sés«éd1S : 
4 CMPB sé RS), #6 + 7046! 
48 1$: BNEQ 2s : 
4E 28: MOVL  #17694720, STRING_DESCRIPTOR : 7056 
F ps CLAL noe DESCRIPTOR ORT4 : 705 
02 0 | CMPB + 7063 
} 1) BEQL 3 
, we 3 F BRW ; : 
E oe 0062 3$: CLRL -(SP) : 7082 
10 AE OF 9064 PUSHAB DUMMY : 
08 AE 9F 00067 PUSHAB PRIMARY : 
AG DD O06A PUSHL  40(R4) : 
000000006 00 04 FB 06D CALLS #4, ,DEGsNcopy _DESC : 
69 D4 00074 CLRL INVA LID_FLAG : 7083 
04 AE OF 0076 PUSHAB V VAL > 7084 
7E 3 BF 9a 0007 MOVZBL #131, -(SP) : 
08 AE DD 00070 PUSHL PRIMARY : 
0000v CF 0 FB 9080 CALLS #3, PRIM_TO : 
0c 69 €8 0008 BLBS INVALID ofLAS, ts : 7090 
50 04 AE 00 90088 MOVL VAAL DESC rb + 7091 
34 AG 146 AO OC ¢9 O08¢ CMPC3 a 2 tR6)” 52(R4) + 7092 | 
7F 13 0009 BEQL : 
56 Dd 000 PUSHL a : 7099 
67 01 FB 00096 CALLS #1, DBGSPRINT ; | 
28 «AG ODD PUSHL : 7100 | 
6A 01 FB CALLS #1, DBGSPRINT. DENTIFIER F | 
05 69 . BLBC  —«INVALID_FLAG, ~5$ : 7101. 
25 AG OOF PUSHAB P.ADR : 7103 | 
03 11 BRA 3 
3c AG OF PUSHAB ;ADs > 7105 
67 1 £B CALLS DBGSPRINT F | 
68 0 FB CALLS i DBGSNEWL INE F 106 | 
Oc AE OF 80 PUSHAB DUMMY : 7111 | 
OC AE OF PUSHAB SYmID stist : 
28 «AG OOD 086 PUSHL a te F 
03 FB B CALLS @ DBGSNGET _SYMID : 
OA E C BLBC : 
08 AF DD 000BF PUSHL aby atis! > 7113 
000000006 00 01 FB ce CALLS DBGSSTA_UNLOCK_SYMID : 
gc AE 9F 000C PUSHAB : 7114 
AS DD 000CC PUSHL  40(R4 ; 
000000006 90 02 FB OOOCF CALLS @ DBGSNFREE DESC : | 
E 3 BF 9A 00006 MOVZBL #181, -(SP) > 7119. 
4 Aa 99F OQOODA PUSHAB R ; 
000000906 00 08 FB 20 CALLS . DBGSMAKE_VAL_DESC : 
4 AE E MOVL R V_VALDESC ; 
C AE OF 000E8 PUSHAB buamy= > 7120 
C AE 9F OOOEB PUSHAB Sym1D skis! : 
€ AE OD EF PUSHL DESC ; 
6B Q FB F CALLS as, "bee ET_SYMID ; 
A E F4 BLBC F 


06 
4 0-742 Page 30) 
Ax-11 Bliss-32 V B32:1 
16500-1984 9:78:58 — Edkauc. Sec Sack vent 853° | ; 7122. 
sat gmp. List oie $7123 
PUSH sy DBGSSTA_LOCK_S : 
ratty 08 AE D FA ¢ #1 ; 
000000006 00 1 gd 90101 PUSHAR puny pel 
AS OF PUSHL &, DBGSNCOPY_D : 
06 FB 001 sie, (RS) g 7136) 
9 113 98 Qo 108 = 
000000006 00 05 98 iH BNE peaoT ; 7136 
FNS TT COTTA oree Ota). at ; 7137, 
i 2 Of BNeg ADU $7139. 
01 83 42 OTT PUSHAB PA ; 
oe ie a eae 7) 
126 11% 13$ : 6 
02 86 42 i PUSHAB #1. DAGSPRINT ise 
3 9 Fae on, = bce 1(R5) Sones | 
? AS 98 OO1ST 188 Beara ; 7161 
rs 03 i 1 Bn (Rs), #2 : 7167) 
0765 91 00138 148: CPB 198 nr 
2 $3 73 0018 Tete 2cR5) ; 7168. 
et eo awe HSE t ri70. 
CS $F OOlds RB 268 1 : 7171, 
01 02 08 42 ool PUSHAB BA ; | 
008 C6 9 OO14E CHPB ach), #2 £7176, 
is 91 a133 168 BNEQ i ; 7176 | 
02 02 08 32 00188 PUSHAB PA pose 
come te Die nee a5), a3 3 TT 
0161 178 q. 18$ : 7179 | 
03 ee % 0163 PUSHAB BAADZ ; | 
OOAA $6 9F 00167 cree SRS), a4 ; 7180, 
i 33 Oo17) ognee SIS A ; 7190 
"we RRB Rh He i 
ame! a8 198: PUSHAB #1. DAGSPRINI : 7199 | 
00co 6 OF 00179 gos: CALLS al, 2 (Ra), 228 Adeeat 
19 AG C3 001 CALLS «Bi. QOGSIS_IT_ ; | 
pee ae 1 Fp gota Fifiue Bice E7203, 
ae oe i 198 oo cats Caine peernint DENTIFIER : 7209 
sal 2M 19¢ 7 Gage: Bat SRURG NL oe 
6A 4 i Hy Bau #5, 24(R4), 258 
03 "= 0085 E1 OOIAS 248: BE 
06 18 AG 


=32 V4.0-742 
: 40:58 — EokauG. eke Soe vent asec 
doseo-t984 09:48: 


= 


lO 
6 9F 001 ST eHAB Pace 
ooce Tt 186 HH ae 
one Be i Be S78: aS 6 2 
oA BF MOVAB 24¢R4), R 1$ 
1 C1 MOVAB (R2), 3 
0 009 C4 288 BBC ae? (Re), 29$ 
18 A . cs BBC p AcF 
5 ‘ f cf BRB he 
11 é ee 8 Th OOIbS CALLS” Aj (Ra), Sa 
gt R182 a See #6, (R2), 
- orc OL aaies 1S: Bat (Re) 
1 9010p 318: see 
67 §5 goles Bocras PAE 
62 : 18 3 BR Pie 1 
"1 9F te i decsprin 
0oFe 6 w EB 38: CALLS ae: CR) $$ 
, 0100 re Fe 4$: BBC p Aes 
6 1 3 
" é 0108 &% Fe 5$: PUSHAR #,<bOCgpRINT 
06 oF $: 3°)" 
O10E 6 FB 00¢04 ies neo. 88s mM, RO 
67 2 AS 9 0B ROVAB Lise ‘ 
67 se Ff BRB (R5), #6 
1 $6 95 B0e08 ne Bia tt 
of esd a a 
a 02 07 2 00e18 BRB ‘7. #8 
50 0123 ii 21 398: BNEG PAEO, RO 
08 "a 9 00997 eno Sif), “4 
we 6 OH se ne ee a P, RO 
30 02 AS 9) poses ROVAB “is 
1 a7 
09 0 BRB (R5), 
he i ii i 418: Beak, o3s ~(SP) 
? 02 08 33 4 BRB $e, RO 
8 0 1 00364 MOVAB P. 
- 7 26 eS; poten ge 
9E 4B 43S: #2, DBGSPR 
50 Ot i po 4p 448: CALLS hrarget 
0114 FB 00¢91 CMPB1(R5), 
478 
67 :, Ht + 6 458 Cee #1- DEGSPRINT 
02 ae cs: Guat’ Stas} eas 
0150 6 FB 6 i 
6? 03 BS E 


—— ee 


5 
boSen-1984 00:59:19 YAK-I1 BLigse82 40-742, 


>t 


015€ ‘ OF 7 PUSHAB P.AES 
67 Fe CALLS #1, DBGSPRINT 
07 5 A § 48$:  6BC #26, (R5), 49% 
7 — §° re 7 chic oie SacSPRINT 
$f 01 «OA of 49%: CMPB (AS), #1 
43 1 7D BNEQ 
28 Ab : 7F TSTL  40(R4) 
3€ BEQL 
55 28 «AG OD MOVL 40(R4), OPCODE_LIST 
; i Cine’ | OpeObE 
29 $5 FI 50$: 88C OP CODE, (OPCODE_LIST), 52$ 
9 0. A 1 MOVAB 1(R2), RO 
52 50 0 Ff 95 ExTzv #0, #3, RO, COLUMN 
2 0029A BNEQ 46-518 
FB 0029C CALLS #0, DBGSNEWLINE 
0000000060045 3¢ oF 51$: mOVZYL DBGSOPCODE_KIND_TABLECOPCODE], INDEX 
0000000060040 SF OOSAA § DBGSOPCODE_NAME_TABLECRO) 
0 pp 81 PUSHL #6 
0175 F BS PUSHAB P.AEU 
67 re B CALLS a3 DBGSPRINT 
(B 3 Q00001FF BF F 0 BA 528: AOBLEQ #511, OPCODE, 50$ 
68 0 FB ce $: CALLS #0 OBGSNEWL INE 
01 1¢ A& D1 002C CMPL : (Ra), #1 
0D 13 002¢9 L 4$ 
1c AG pd 02C¢B PUSHL  28(R4) 
0178 C6 OF 002C 5 P.AEV 
67 02 FB 002D CALLS #2, DBGSPRINT 
68 00 FB 002D CALLS #0, DBGSNEWLINE 
20 A& D5 00208 548: =TSTL (ra) 
1A 13 00208 BEQL 4 
50 20 A& D0 00200 MOVL g(R4) . WHEN_ENTRY 
50 € AO DO 00261 MOVL  12(WHEN_ENTRY), STRING 
02 ad 9F 00 ES PUS 2(STRING) 
7E 60 ¢ 9 E MOVZWL (STRING), =(SP) 
6€ 0D EB ECL (SP) 
018A cé 9F O02ZED SHAB P.AEW 
67 6 FB OO02F1 CALLS #3, DBGSPRINT 
68 oF F4 CALLS #0. DBGSNEWLINE 
24 Aa OD 9 F7 55$: ——*TSTL 6(R4) 
1A 1 FA BEQL 6$ 
50 24 Aa OD F MOVL G(R4), DO_LIST_ENT 
a | MOVL (DO_CISTTENTRY), STRING 
02 Ad OF Pus 2(STRING) 
7E 60 ¢ 7 MOVZWL (STRING), -(SP) 
6£ p A DECL (SP) 
0198 6 F PUSHAB P.AEX 
67 FB 0031 CALLS a3, DBGSPRINT 
68 0 FB 0 1 CALLS #0, DBGSNEWLINE 
04 16 56$: RET 


3; Routine Size: 791 bytes, Routine Base: DBGSCODE + 2961 
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1 GLOBAL ROUTINE DELETE_EVENT_ENTRY(EVENT_ENTRY): NOVALUE = 
: i FUNCTION 
: This routine is called to delete an event entry from its queue 
5 : (the command queue and event queve if Linked in), as well as 
} any value descriptor, WHEN, or DO entries. 
i INPUTS 
: EVENT_ENTRY : Pointer to the event entry to be deleted. 
1 i OUTPUTS 
1 4 None 
1 ' 
1 
: BEGIN 
1 
! EVENT_ENTRY : REF EVENTSEVENT_DESCRIPTOR; 
LOCAL 
WHEN_ENTRY : REF EVENTSWHEN egse RIPTOR ! WHEN pointer 
DO_LIST_ENTRY : REF EVENTSDO_LIST_DESCRIPTOR, ' DO List pointer 


ADDRESS ! Release address 
SYMID_LIST, 
DUMMY; 


oe bok 
Ye just. had Reserved Operand fault from RET of apetes service. 
s time to take the entry off, erase what we have done, just 
. if nothing ever happened. 


jEVENT_ENTRY CEVENTSB_CMD TYPE] EQL EVENTSK, TYPE, SSINT 


sth 
BIT. 15_CNT: REF vec Toate spre}. 
BIT" 15" CNT_SSV: REF yee for oo YTE), 
USERS_FP: REF BLOCK YTEJ; 


74 


ee ee te ee 


iF 
HEN 


T_15_CNT_SSV = .EVENT ENTRY CEVENTSL_SSV_CO rhiete 
T715"CNT"= .EVENT_ENTRY CEVENTSL_FP_RET_CNT 
We have got reserved operand fault. 
BIT_15_CNTCO) = .BIT_15_CNTLO) - 
us SERS “FP = .EVENT_ENTRY” CEVENTSL _viers FP); 
: This service is leaving. 
if gB1T_15_cNtC03 EQL 0 
BEGIN 
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-Sep-1 AX-11 Bliss-32 v4.0-742 Pp 10) 
i ese 90: F8eg | Homes ehissece vent asses age 310 
Get ready to report watched value at T-bit RET time. 


IF .0BG$GB_SET SSI_CNT ite metry yy = TRUE; 
(USERS_FP CSFS$Q_SAVE PSW)) = FALSE; 

! Since we only have one entry of the ounke hd, << there is no need 

| to match he rt ted st ten calls 


7464 
oe82 CNT 0] = Bit -'5_CNT_SSVLOJ = 1; 
746? Ju Just about to return to the caller. 
ies B1T_15_CNT_SSVCOJ = 0; 
ga 1 Cycle is all done. 
1673 DBGSGB_SET_WATCH_FLAG = FALSE; 
7475 
; eh ELSE 
71 7478 
ik 7479 ! Still more left to go. More levels to go through, for example, 
7 7480 i SDBG sees it, next TDBG should see it. Since we only make the 
74 et i reserved operand fault goes through one level, this should never 
75 et) happen. 
7484 a (USERS_FP CSFSW_SAVE_PSWJ)<15,1,0> = TRUE; 
0 
1 ! If this entey is a ak ipgcevent . remove it from its parent's queve 
¢ 7489 ! first. s NOT a skips, and the porent queue is not empty. we 
! howe (at the moment) and error... The parent still has active 
offspring. 
i 


-EVENT-ENTRY CEVENTSB_CMD_TYPE) EQLU EVENTSK_TYPE_IGNOR OR 
-EVENT_ENTRY CEVENTS8_CMD_TYPE) EQLU EVENTSK_TYPE_SSINT 


REMQUE1 (.EVENT_ENTRY) 


ELSE IF gl ENTRY CEVENTSL_EXC_FLINK] NEQA .EVENT_ENTRY OR 
THEN -EVENTENTRY CEVENTSL-EXC-BLINK] NEQA .EVENT ENTRY 
RETURN; 


F .EVENT_ENTRY PEveNraa-¢ CMD_ ats EQLU EVENTSK_TYPE_SKIPS OR 


: Remove the entry from the command queue. 
REMQUE (.EVENT_ENTRY, EVENT_ENTRY); 


: If this is not a STEPS, SKIPS or IGNOR entry.... 


is (,EVENT_ENTRY CEVENTSB_CMD_ Bb NEQU EVENTSK_TYPE_STEPS) AND 
(,EVENT-ENTRY CEVENTSB_CMD_TYPE] NEQU EVENTSK_TYPE_SKIPS) AND 
(,EVENT-ENTRY LEVENTSB_CMD_TYPE) NEQU EVENTSK_-TYPE_IGNOR) AND 


oo NO Wr 
ANNs 
Pre 
oO Co: co 
wn ONAN 
RaPPIPIPIPIPIPIMIAIMNIPIPIPIPIPIPIPIPIPIPIPIPIPINPIPINININI WM ANILINE B® BPP PPP PPP PPP PPPOE 
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reg EVENTAENTRY CEVENTSB_CHD_TYPE] NEQU EVENTSK_TYPE_SSINT) 
BEGIN 


! If the entry is an access type, release any primary 
: and value descriptor. 


if EVENT ENTRY CEVENTSB_CMD_KIND) EQLU EVENTSK_KIND_ACC 
BEGIN 


tt 


SONAOVULSWN —“OOODNOUS WN 


} Release any page entries. 
Uf EVENT ENTRY CEVENTSB_SUB_KIND] EQLU EVENTSK_ACC_MDFY 
BEGIN 
LOCAL 
PAGE_LIST : REF VECTOR C, LONG); 


SSS 
RRRRRERR REE RRRRRREEPER 


Get the pages associated with this value 
IF DBGSNGET_PAGES (EVENT ENTRY CEVENTSL_PRIMARY], 


THEN 
BEGIN 


! While there are entries in the page list, delete a 
page reference from the page queue. 
dO 

BEGIN 


LOCAL 
PAGE ENTRY : REF EVENTSPAGE DESCRIPTOR; 


! Search oe the existing entries in the page 
queue for this page. 


PAGE_ENTRY = .EVENTSPAGE QUEUE CL_QUEUE_FLINK); 
WHILE PAGE ENTRY NEQA EVENTSPAGE- QUEUE ~DO 


EGI 
IF .PAGE_ENTRY FG VENTSL PAGE ADORESS) EQLA 
PAGE _LIST C 


! A match is found, so Conbune the 
' reference count, deleting the entry if 
the count goes to zero. 


BEGIN 
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7465 ? 
Me ae 
746 7574 
7468 7575 
24 7576 
7470 757 
7471 7578 
747 757 
747 7580 
747% 7581 
7475 758¢ 
747 7 
747 7584 
7478 7585 
7479 7586 
7480 758 
7481 7588 
748 7589 
748 7590 
748% 7591 
7485 7398 
7486 759 
7487 7594 
7488 7595 
7489 7596 
7490 759 
7491 7598 
749 7599 
749 7600 
7494 760 
7495 760 
7496 760 
7497 7604 
7498 7605 
7499 76 
7500 7607 
7501 7608 
7508 7609 
750 7610 
7504 7611 
7505 761 
7506 761 
OR 
OR 
7510 761 
7511 7618 
7512 7619 
751 7620 
7514 7691 
7515 7698 
7516 76 
751 7626 
7518 7625 
7519 7606 
7320 769 
7551 7628 
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14-Sep-1984 DEBUG.SR VENT .632;1 


PAGE_ENTRY CEVENTSW PAGE REF COUNT) = 
~PAGE_ ENTRY CEVENTSW_PAGE REF _COUNT] = 1; 
{fg PAGE ENTRY CEVENTSW_PAGE_REF COUNT) EQLU 0 


N 5 
IE-SEHORG AESH2IDWOGLLAAESBSEAUSGREZ, = OH 


GIN 
REMQUE (.PAGE ENTRY, PAGE_ENTRY); 
DBGSREL_ MEMORY (.PAGE_ENTRY); 

EXITLO 


Not found yet, point to the next one. 
PAGE ENTRY = .PAGE_ENTRY CEVENTSL_PAGE_FLINK]; 


PAGE LIST = .PAGE_LIST (0); 
WHILE .PAGE_LIST; 
END; 
END; 


Notify the RST to release symid's. 
IF DBGSNGET_SYMID (.EVENT_ENTRY CEVENTSL_PRIMARY], 
svmip_CIst, 


THEN 
DBGSSTA_UNLOCK_SYMID (.SYMID_LIST); 
Release the primary descriptor 
DBGSNFREE_DESC (.EVENT_ENTRY CEVENTSL_PRIMARY], DUMMY); 


Release any value descriptor. 
df EVENTLENTRY CEVENTSV_HAS_VAL_DSCRJ 
BEGIN 


Notify the RST to release symid's. 
iF DBGSNGET_SYMID (.EVENT_ENTRY CEVENTSL_VALDESC), 
svalo cist, 


THEN 
DBGSSTA_UNLOCK_SYMID (.SYMID_LIST); 


‘ 
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3 i 38 6 8 } Release the value descriptor 

3; 7524 7631 DBGSNFREE_DESC (.EVENT_ENTRY CEVENTSL_VALDESC], DUMMY); 
: 7525 76 § 4 END; 
s7 8 76 END; 
3 3 7634 | 
: 7528 7635 
3 Le 9 76 § ' Release any WHEN Entries. 
; 7530 76 ; 
; 7531 7638 WHEN ENTRY = EVENT ENTRY CEVENTSL_WHEN]; | 
3 75 § 7639 IF .QHEN_ENTRY NEQA | 
3 ie 7640 THEN 

3 7534 7641 & BEGIN 
; 7535 So 4 
3; 7536 7645 4 

; 7537 7644 4 ! We have a WHEN entry. Decrement its reference count. 

; 7538 7645 & ! 
; 7539 7646 4 WHEN_ENTRY CEVENTSL_WHEN_COUNT) = 
; 7540 7647 4 -WHEN_ENTRY CEVENTSL_WHEN_COUNT] = 1; 
3: 7541 7648 4 
3 ea 7649 & 
3; 754 7650 4 ! Delete it if the count goes to 0 (or less !!!). 
3 7544 7651 4 ! 
3 7545 7652 4 IF .WHEN_ENTRY CEVENTSL_WHEN_COUNT] LEQU 0 

3; 7546 7653 4 THE 

3; 7547 7654 5 BEGIN 

; 7548 7655 5 

3; 7549 pees 5 

3 29 re2t 2 Release the expression buffer. 

; 2g 7659 5 DBGSREL_MEMORY (.WHEN_ENTRY CEVENTSL_WHEN_POINT)); | 
3; 755 7660 5 
3: 7554 7661 5§ 
; 7555 7662 5 ' Release the WHEN descriptor. 
3; 7556 766 : ! 
3; 7557 7664 DBGSREL_MEMORY (.WHEN_ENTRY); 

; 7558 7665 END 
3; 7559 7666 END; 
; 7560 7667 
3; 7561 7668 ; | 
; $6 7669 ' Release any DO List Entries. 
3; 756 7670 ! 
3; 7564 7671 DO_LIST_ENTRY = Evga cuter CEVENT$L_DO); | 
: 7565 767 IF~.DO_CIST_ENTRY NEQA 

3 7 r§] 767 THEN 

3; 756 7674 4 BEGIN 

3; 7568 7675 4 

3 7262 7676 4 

: 7300 ro? ? : We have a DO List entry. Decrement its reference count. 

3 276 7679 4 DO_LIST_ENTRY CEVENTS$L_DO_LIST_COUNT]) = 

3; 757 7680 4 -DO-LIST_ENTRY CEVENTSL_DO_LIST_COUNT) - 1: 

3: 7574 7681 4 

3; 7575 76 § 4 

3 276 Set | | Delete it if the count goes to 0 (or less !!!). 

: 7578 7685 4 iF .DO_LIST_ENTRY CEVENTSL_DO_LIST_COUNT) LEQU 0 


6 
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; 7579 76 $ 4 

; 7580 76 BEGIN 

; 7581 76 8 ' LOCAL 

77 ¢ 768 i PREV_ENTRY: REF EVENTSDO_LIST_DESCRIPTOR, 

37 7690 § } NEXTIENTRY: REF EVENTSDO-LIST-DESCRIPTOR; 

Be 

; 7389 1693 ! Release the command buffer. 

: 7588 7695 DBGSREL_MEMORY (.DO_LIST_ENTRY CEVENTSL_DO_LIST_POINT)); 
BR TBF 

: Fagy 7698 ! Unlink this DO_LIST entry from the List. The REMQUE 
; F236 7699 ! instruction does the same as the following four Lines 
Be HG ‘adhspone 

: 7595 770 3 i PREV_ENTRY = .DO_LIST_ENTRY CEVENTSL_DO_LIST_BLINK]; 
; 7596 770 i NEXTTENTRY = .00 : T“ENTRY CEVENTSL_DO-LIST-FLINK]; 
; 7597 7704 5 ' PREVCENTRY CEVENTSL_DO_LIST_FLINK] = .NEXT_ENTRY; 

; 7398 7705 3 | NEXTIENTRY CEVENTSL-DO_LIST-BLINK] = .PREVIENTRY; 

: 7600 roe 5 REMQUE (.DO_LIST_ENTRY, DO_LIST_ENTRY); 

 Feo2 09 3 

; 7608 £710 3 ! Release the DO_LIST descriptor. 

> 7605 wie 5 DBGSREL_MEMORY (.DO_LIST_ENTRY); 

> 7606 7713 4 END; 

3 7607 7714 3 END; 

3 7608 7715 END; 

<n 

; 7611 78 ! Release the opcode List. 

: 761 7720 IF (.EVENT_ENTRY CEVENTSB_CMD_KIND] EQLU EVENTSK_KIND_INS) AND 

> 7614 731 (,EVENT-ENTRY CEVENTSL-OPCODE_LIST) NEQA 0) AND 

3 7615 77 g (, EVENT ENTRY CEVENTSL_OPCODE-LIST] NEQA DBGSOPCODES_CALL) AND 
; 7616 7184 CCEVENTCENTRY EVENTSL_OPCODE-LIST) NEQA DBGSOPCODES-BRANCH) 

; 7618 Ag : DBGSREL_MEMORY (.EVENT_ENTRY CEVENTSL_OPCODE_LIST)); 

> 7620 77 

: AS 1 th Release Copied FP. 

; 76 5 7730 if .EVENT_ENTRY CEVENTSB_CMD_TYPE) EQLU EVENTSK_TYPE_SKIPS OR 

; r6 4 Mi 1 gEVENTIENTRY EVENT$B_CMD-TYPE) EQLU EVENTSK-TYPE_STEPS 

; 16 a j IF .EVENT_ENTRY CEVENTSL_CALL_FRAME] NEQA 0 

; 7628 7735 DBGSREL_MEMORY (.EVENT_ENTRY CEVENTSL_CALL_FRAME)); 

Be ie 

: 6 1 o 8 : Finally, release the Event Entry, itself. 

: 76 : 7740 DBGSREL_MEMORY (.EVENT_ENTRY); 

3: 7634 7741 END; 
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| 
07FC 00000 ENTRY DELETE EVENT_ENTRY, Save R2,R3,R4,R5,R6,R7,°; 7401) 
A 99000 06 00 9€ 900 MOVAB OBGSNFREE_DESC, R10 : 
9 000000006 9 9€ 0000 MOVAB DBGS$STA_URLOCK.SYMID, R9 : | 
8 0000 36 9E 9019 MOVAB DBGSNGET_SYMID; 3 
6 0000' EF 9€ 0001 MOVAB EVENTSPAGE QUEUE, R7 : | 
8 0 00° F 9€ 0016 MOVAB SKIP : 
00000006 60 9 00 HOVAB DAGSREL MEMORY, R5 : 
: cf ¢£ c SUBL2 #12, : | 
06 AC D 00 F OVL EVENT_ENTRY, R2 + 7436 | 
54 ps 0 : CLRL = RG : 
06 146 A2 91 000 CMPB g0(R2), #6 : 
ef 12 900 9 BNEQ & : 
4 06 00038 INCL 4 : 
53 1¢ Ag D 00 D MOVL 28(R2), BIT_15_CNT_SSV + 746 
51 . 4 p 0041 MOVL  44(R2). BIT~15~CNT + 746 
61 0045 DECR «©. (BIT_15_CNTY + 7448 
50 24 «Ae g 0047 MOVL  § 36(R2),-USERS_FP 3 7449 
#8 43 Oo0eB i - Bay 
03 000000006 99 E au BLBC #$DBGS$GB_SET_SSI_CNT, 1$ + 7461 
66 1 00 00056 MOVL #1 sy WATCHES 3 
0S ad 80 8F BA 00059 1$: BICB2 #128, 5(OSERS FP) t 7462 
63 94 0005 CLRB. ss (BIT 15_CNT_SSv) + 7469 
cD af 96 O06 CLRB BG$GB_SET_QATCH_FLAG : rel? 
05 ad 80 8? 88 006 gs: BISB2 #128, S(USERS_FP) + 7484 
04 14 Ag 1 0006A 3$: CM 20(R2), #4 + 7493 
09 13 O06E BEQL = 4 : 
05 14 Ag 91 000 CMPB so 20(R2), #5 + 7494 
0: 13 0074 BEQL 6 4$ : 
09 4 €9 0007 BLBC =. «aR, ‘S$ : 7495 
52 OD PUSHL R + 7497 
FB86 CCF oi Fe CALLS a. REMQUE 1 : 
52 08 A2 i B(R2), R2 > 7499 
52 Oc A2 D 12(R2), R2 : 7500 
01 13 7$ 3 
04 RET ; | 
F REMQUE (R2), EVENT_ENTRY : 7507 | 
p MOV VENT_ENTRY; RO > 7512 | 
; OCROY, #3 - : 
9 3cR 0). #4 * : 7513 | 
$4 0cRO), #5 .  & 7514] 
; (RO), #6 : 7515 | 
; $ ; 
} (RO) : 7523 | 
1 0o$ 3 
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008C 31 00087 BRW 18$ 
02 16 46 $1 oBh 10$:  CMPB 28R0), #2 
41 1 B BNEQ 4 
8 AE i C PUSHAB DUMMY 
4 AE 9F 000C PUSHAB PAGE_LIST 
8 AO DD ce PUSHL 
000000006 i : FB C CALLS #3, DBGSNGET_PAGES 
é Bo bps 11$:  MOVL EVENTSPAGE_QUEUE, PAGE_ENTRY 
2 67 . 0006 12$:  MOVAB EVENT SPAGE -QUEUE, RO 
2 D d CMPL  PAGE_ENTRY> R 
iE 13 oon¢ BEQL 14$ 
50 oF D DE MOVL  PAGE_LIST, RO 
04 AO 08 A2 01 O00E CMPL  8(PAGE_ENTRY), 4(RO) 
OF if QOEG BNEG «-13$ 
Oc A2 : OE DECW 1¢ (PAGE _ENTRY) 
OA 12 O00EB BNEQ 13$ 
52 $2 OF OOOED REMQUE (PAGE_ENTRY), PAGE_ENTRY 
DD OOF PUSHL PAGE_ENTRY 
65 07 FB O00F CALLS #1, BBGSREL_MEMORY 
05 11 OOOF BRB 
52 62 DO OOOF7 13$:  MOVL #$(PAGE_ENTRY), PAGE_ENTRY 
DA 11 OOOFA BRB 
9E DD OOOFC 14$:  PUSHL @PAGE_LIST 
b2 6E 8 OOOFE BLBS PAGE CIST, 11$ 
08 AE OF 90191 15$: | PUSHAB DUMMY 
08 AE 9F 00104 PUSHAB SYMID_LIST 
52 04 AC 00 00107 MOVL EVENT-ENTRY, R2 
28 «=A2 «ODD 90108 PUSHL 
68 03 FB 0010E CALLS #3, DBGSNGET_SYMID 
06 50 €9 00111 BLBC : 
04 AE DD 00114 PUSHL  SYMID_LIST 
69 01 FB 00117 CALLS #1, DBGSSTA_UNLOCK_SYMID 
08 AE 9F OO11A 16$:  PUSHAB 
28 «A2 OD 0011p PUSHL  40(R2) 
6A 02 FB 00120 CALLS #2, DEGSNFREE DESC 
1€ 17 A2 0 EI 0123 BBC #3. 23(R2), 18S 
08 AE 9F 00128 PUSHAB 
08 AE 9F 00128 PUSHAB SYMID_LIST 
A2 OD 0012E PUSHL 48 (R2 
68 Q F 4 1 CALLS #3, DEGSNGET_SYMID 
06 E9 001 BLBEC =._—«aRO,._ 1 
04 AE DD 00137 PUSHL  SYMID_LIST 
69 01 FB O013A CALLS #1, DBGSSTA_UNLOCK_SYMID 
08 AE 9F 00130 17$:  PUSHAB D 
A2 0D 0014 PUSHL  48(R2) 
A 02 FB 0014 CALLS #2, DBGSNFREE ESC 
3 4 AC 00 00146 188: MOVL ENT ENTRY, R 
2 0 A : 146A MOVL (R33, WHEN_ENTRY 
1 14 BEQL 
08 A : 1 DECL (WHEN_ENTRY) 
0B 12 001 BNEO 
0C A2 DD 001 PUSHL 12(WHEN_ENTRY) 
65 FB 001 CALLS #1, DBGSREL_MEMORY 
; Se ee nexon 
$3 24 «AS 60 180 19$: MOVL Sotnei DO_CIST_ENTRY 


SY Sonu Man 
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SaVVVVN ON 


se 
oe 


~SS071986 QUGR:IR YAEGDE SASS ese 


16- 
14- 
a 3 1 BEQL 0$ 
08 M3 of 186 DECL ie LIST_LENTRY) 
oc As 43 18¢ et (DO Oatdst EN gle 
$3 $3 44 VI fom” 5 D6 LIS ST nENTRY) "ho. LIST_LENTRY 
F 176 CALLS a becSReL MEMORY 
$ % & 3 179 208: MOVL VENT_ENTRY, R2 
5 OA 17D CMPB 1tR27, #1 
21 1 181 BNEQ 
28 se 9 : 3 peor 40(R2) 
28 0088 6 9 1 MOVAB a0(R2). RD RO 
VB gH 
00 ct 9 19 MOVAB DBGSOPCODES_BRANCH, RO 
ie eb a a 
a Rabie FS ite 
5 01 FB 1a CALLS #1, DBGSREL_MEMORY 
4 14 =A2 a 1A4 218 CMPB (R2), #4 
06 1 1A8 BEQL S 
03 14 A2 91 QOTAA C (R2), #3 
08 1 1A BNEQ $ 
$C 0 A2 sO 180 22$ TSTL ggcne) 
06 1 18 BEQL 23$ 
3¢ =6A2 «=D 0018 PUSHL 60(R2) 
65 1 FB 00188 CALLS #1, DBGSREL_MEMORY 
2 0D 00188 238 PUSHL : 
65 01 FB 00180 CALLS #1, DBGSREL_MEMORY 
04 001C0 RET 


; Routine Size: 449 bytes, Routine Base: DBGSCODE + 2CF8 


=$ep-1984 00:59: AX-11 Bliss-32 Vv 
18-se at 7 9 33:39 DEBUG. SRC IDBGEVE 
ROUTINE COMPARE _VMSDESC(DESC1, DESC2) = 


' FUNCTION | 
Determines wpegner two VMS descriptors represent the same area 

of storage. Th used, for example, in processing the SET WATCH 

command, to deteraine whether we already have a watchpoint on 

the given data item. 


. Points to a VMS descriptor 
- Points to a VMS descriptor 


TS 

The value TRUE or FALSE is returned. 
BEGIN 
MA 


rs 

ww 
Se ee Se | 
Sa Se te i i i ti i te te Si te ti ie i i te ee | 
DPA PASI PPE EE 
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ner DBGS$STG_DESC 
G_DESC; 
7761 


! Check whether the data given by the descriptors have 
i the same address. 


$C$B ~CLASS) EQL DSCSK_CLASS_UBS 
= [DESCICDSCSL_POS] ELSE OFFSET1 = 0; 


DS 

T1 

DSCS$B_CLAS DSCS$K_CLASS_UBS 
1s “best Stose L_POSJ-ELSE OFFSET2 


EDS teas POINTER ar 4: 34: $3. 21>)_N 
DSCSA_POINTER] + .OFFSET2<3,29 DD THEN RETURN FALSE; 


IF .OFFSET1<0,3,0> NEQ .OFFSET2<0,3,0> THEN RETURN FALSE; 


0; 


wee TN Me 


ANN 
= 


Wn—O Cone 


Compare the lengths. 
(Do we really want to do this? The implications are: 


SET WATCH ARRAY and SET WATCH ARRAY(1) are two different watchpoints, 
since the wenenes areas have different lengths. This behavior seems 
° correct. 


' 
i 
i 
i 
i 
i 
i 
i Say X is byte veritable of AEH 280 400. Sey the default type is LONG. 
i Then SET WATCH xX and SET WATCH 2 reated as two eit torent | 
i watchpoints (since one hes len . J and the other has length 

This does not seem ning, This problem could be solved 

L 
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if ve pttonptes to ae the" before setting the watchpoint 
on it. 


ENGTH? = DBGSDATA_LENGTH(. 
ENGTH2 = DBGSDATA_LENGTH(. 
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3: 7693 799 RETURN .LENGTH] EQL .LENGTH2; 
2 7694 0 ED + yl speetnae tame acct 


007C 00000 COMPARE_vMSDESC: 
WORD 


- Save R2,R3,R4,R5,R6 : 7742) 

6 000000006 00 9 HOVAB DBGSDATA. LENGTH, RO ; 2 

1 4 Ac p MOVL ESC], R ; 7772, 
D 3 al CMPB (R1), #13 : 

06 1 BNEQ : | 

55 08 y p MOVL (R1), OFFSETI : 7773) 
D4 19 1$: CLRL OFFSET : 

52 AC DO 00018 2$: MOVL ES 5 R2 : 7775 
0D 8 A Bf OO1F CMPB (R2), #13 : 

0 1 9 3 BNEQ : | 

54 08 A2 00 000 MOVL (R2), OFFSET2 : 7776) 

11 00029 BRB 4$ : 
4 p4 028 3$: CLRL  OFFSET2 : 

53 55 FD sO 0 p as: ASHL #3, OFFSET1, R3 : 7778 
046 «Al ¢ 00 ADDL2 4(R1), R : 

50 54 FD «BF 00 ASHL #3, OFFSET2, RO 7779! 
50 04 A2 CO 000 ADDL2 4(R3), RO : 
50 53 D1 0003F CMPL =e R3, _RO ; | 

: 12 00042 BNEQ 3 : 
50 54 5 8p 0044 XORB3 OFFSET1, OFFSET2, RO ; 7781) 
07 50 93 00048 BITB RO, #7 : 
1A 12 00048 BNEQ : | 
51 DD 00040 PUSHL 1 : 7797 
$6 gi FB O04F CALLS #1, DBGSDATA_LENGTH : 
5 0 »D 005¢ MOVL RO, LENGTH : 
52 OD 009 PUSHL R : 7798 
66 01 FB 909 7 CALLS #1, DBGSDATA_LENGTH : 
51 D4 0005A CLAL 1 : 7799 
50 53 1 9909¢ CMPL LENGTHT, LENGTH2 ; 
2 12 0005F BNEQ i : 
1 06 0061 INCL RY ; 
50 1 p 9063 5$: MOVL 1, RO : | 
4 bo8 RET : 
50 D4 0067 6$: CLRL : 7800 | 
4 00069 : 


3; Routine Size: 106 bytes, Routine Base: DBGSCODE + 2EB9 


; 7695 7801 1 


6 
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-Sep-1 DEBUG. SRC JDBGEVENT .832;1 
s 769? , § } ROUTINE GET_WATCH_POINT_VALUE (EVENT : REF EVENTSEVENT_DESCRIPTOR): NOVALUE = 
; f f 4 i FUNCTION 
: 77 7 ii This routine gets the new value for a variable that is watched. 
: 77 7 1! It does so by converting the Primary in the Event Entry to a 
$ fe 7 : : Value Descriptor which contains the value. 
; 7705 b 19 ii Along the way, this rout ine checks that the Primary is still 
3; 77 7811 1! valid (i.e., still points to the same storage that it did when 
: 77 7 i 1 the watchpoint was set). If it is not valid, the Primary is 
3 77 781 7! replaced Y @ Volatile Cetye Descriptor, and then the watchpoint 
3 4444 13 : : is on an absolute address instead of a primary expression. 
: 7711 7 1g 1 | INPUTS 
3 4a g ; : } EVENT = Event entry pointer which describes the watchpoint. 
: 7714 7 i 1 ' ouTPUTS 
3 7715 7820 1! The own variable NEWVALUE is set by this routine. The value in 
3 gre 7821 1! NEWVALUE is then compared to the value in EVENTCEVENTSL_VALDESC] 
3; 771 7 § +! to see if the watched variable has changed (this comparison 
3 ge f Z : : is done in DBGSEXCEPTION_HANDLER, the called of this routine). 
130 rz § (ESI 
: 77 ‘ 78 $ DUMMY ' Output parameter for subroutines 
: 77 7828 PRIMARY i Temporary copy of the Primary 
> 7724 7829 SYMID_LIST i Symid List for LOCK SY 
3; 7725 7830 VALDESC: REF DBGSVALDESC ' Value descriptor with value of Primary 
: 7 6 ree V_VALDESC: REF DBGSVALDESC; i Volatile Value Descriptor 
: 7728 783 
3; 7729 Pose ! Copy the Primary since PRIM_TO_VAL sometimes has the side effect 
3 77 7835 ! of aodt fying its argument. This copy is done into temporary 
3 7731 78 ! memory (fourth parameter is FALSE). Then call PRIM_TO_VAL 
3 77 $ 78 ! and get a Volatile Value Descriptor (this will have 
3 4 4 3 : the reai address of the watched variable embedded in it). 
: 7735 rei0 DBGSNCOPY_DESC ( ,EVENTCEVENTSL_PRIMARY], PRIMARY, DUMMY, FALSE); 
3: 77 7841 INVALID_FCAG = FALSE; 
3 or : § PRIM_TO_VAL (.PRIMARY, DBGSK_V_VALUE_DESC, V_VALDESC); 
: 7739 7844 
: 7740 7845 ! Check whether the Primary is still valid, i.e., whether it still 
3 45}! ¢ $ } points to the same storage as it did when the watchpoint was set. 
: 77% 7 iF .INVALID_FLAG OR 
3 7744 7 3 CHSNEQ (T2, V_VALDESCCDBGSA_VALUE_VMSDESC], 12, EVENTCEVENTSA_VMSDESC)) 
3; 7765 7850 THEN 
3 eres . 5 BEGIN 
; 7748 7 : 
: oe g 22 : Print an informational saying the Primary is no longer valid. 
: ret 7 36 DBGSPRINT (SAC ("XDEBUG-I-WATCHVAR, watched variable ')); 
: 4a 785 DBGSPRINT_IDENTIFIER( .EVENTCEVENTSL_PRIMARY)); 
3 775 7858 IF .INVALTD_FLAG 


: 


-PSECT DBGSCODE,NOWRT, SHR, 
03FC 00000 GET_WATCH_POINT_VALUE: 


6 
Tb-Seo-1984 00:59:19 YAK-1 BLigse52 y4_0-742, 


5 44 4 785 THEN 
: ‘ad 5 7 DBGSPRINT (SAC (" has gone out of scope')) 
: 77 f DBGSPRINT (SAC (° now points to a different address')); 
3 f7 : 7 DBGSNEWLINE(); 
3 77 7 
3 The 7865 
3 ore) f Free up the old Primary. 
; 7168 f re if DBGSNGET_SYMID (.EVENTCEVENTSL_PRIMARY], SYMID_LIST, DUMMY) 
> 7765 DBGSSTA_UNLOCK_SYMID (.SYMID_LIST); 
3 ae , rt DBGSNFREE_DESC (.EVENT EVENTSL_PRIMARY), DUMMY); 
: 7768 7 4 
: a ; f a Replace it with the Volatile Value Descriptor. 
: 7771 7 u V_VALDESC = DBGSMAKE_VAL RESCCEVENTCEVENTSA VMSDESC], DBGSK_V_VALUE_DESC); 
3; 777 787 v VAL DE SEL ROe5s DHDR-LANG) = .DBG$GB_LANGUAGE ; 
3; 777 rere IF DBGSNGET_SYMID (.V_VALDESC, SYMID-LIST, DUMMY) 
3: 7774 78 THEN 
3 7775 7880 DBGSSTA_LOCK_SYMID (.SYMIC mf Re 
3; 777 7881 DBGSNCOPY_DESC (7V_VALDESC, EVENT EVENTSL_PRIMARY], DUMMY, TRUE); 
3 777 pees END; 
3; 7778 788 
3; 7779 7884 
; 77 7885 ' Build a Value Descriptor. 
3; 7781 78 ! Then copy the value descriptor into permanent memory. 
3; 778 788 ! This is needed so that the storage stays around even if we 
3; 778 7888 ! execute DO clauses on the watchpoint (which may in turn 
3; 7784 7889 ' cause calls to REL_TEMPMEM). 
: 7785 7890 ! The memory for NEWJALUE is freed up in DBGSEXCEPTION_HANDLER 
; a 444) : when it is finished with the Value Descriptor. 
: 7788 9 DBGSPRIM_TO_VAL(.V_VALDESC, DBGSK_VALUE_ DESC, VALDESC); 
> 7789 7894 DBGSNCOPY_DESC (.VALDESC, NEWVALUE, DUMMY, TRUE); 
3; 7790 7895 RETURN 0; 
3; 7791 7896 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
48 43 54 461 57 2D & ¢p 47 33 $8 45 44 25 24 R368 P.AEY: .ASCII \S$2ZDEBUG-I-WATCHVAR, watched variable \ 
61 76 20 64 65 68 6 4 $} : 2 és 2 oe § 3228 
20 74 75 6F 20 65 6€E of $7 26 i st i 84 10 0870 P.AEZ: .ASCII <22>\ has gone out of scope\ 
6F 74 20 73 7% of $3 6F 8 $ 6F 5 3 be 7 P.AFA: .ASCII \"' now points to a different address\ 
64 61 20 74 6E 6 2 65 66 66 9 8 6 } yea 


PIC.0 


roe 33) 


rivet tit i f-sep-1984 99rFeis8 — Ekaue.Saeibecevent esos Poe 337 


WORD R3,R4 Pi gh6- R7,RB,RO : 7802 | 
9 G MOVAB bastucet Sin : 
: G MOVAB SPRINT! mip : 
6 1 MOVAB Sees cOnY “DESC, R7 : 
g F 1 MOVAB P.AEY : 
' EF 1 MOV vat fo. FLAG, RS : 
E 4 ¢ SUBL : 
7E p CLRL 0 = (SP) + 7840. 
16 AE OOF A PUSHAB OURMY : 
8 AE OF PUSHAB PRIMARY : 
wa Se rot, Naas 5 
67 04 FB CALLS #4, DaGSNCOPY _DESC : 
65 p4 0 A CLAL INVA LID LAG + 7841 
04 AE OF C PUSHAB V-YALD Psct + 7842 
7E 3 BF OA 00 F MOVZBL #731, -<(SP) : 
08 AE DD 00043 PUSHL PRIMARY : 
0000v CF 03 F O46 CALLS #3, PRIM_TO_VAL : 
F 65 € 48 BLBS INVALID ft AS 1$ : 7848 | 
0 04 AE 04 MOVL ALDESC rb + 7849 
34 AG 16 AO ' 005 cMeCsS am CRO)” 52(R4) : 
008D if EN BRW a : 
6 DD 0005p 18: PUSHL R6 : 7856 
68 01 FB 0005F CALLS #1, DBGSPRINT : 
28 «AG ODD 906 PUSHL 4 : 7857 
000000006 00 01 FB 006 CALLS #1, DBGSPRINT_ IDENTIFIER ; 
05 65 E 006C BLBC _—«INVALID_FLAG, ~2$ : 7858 
25 A ot O06F PUSHAB ae : 7860 
3c |= ACO: «00074 3s PUSHAB + 7862 
68 01 FB 00077 CALLS bin PORGSPRINT : 
000000006 00 - 00 FB OO7A CALLS | #0. 0 DBGSNEWL INE : 7863 
o¢ AE 9F 00084 PUSHAB SYMID stist : 
28 Aad DD 00087 PUSHL ae : 
69 ; FB DOB CALLS #3, DBGSNGET_SYMID : 
08 AE OD 9090 SHL sy MID : 7870 | 
000000006 00 07 FB 0009 CALLS #1, DB Sta _UNLOCK_SYMID : 
10 AE F 009A 4$ PUSHAB p hn Y : 7871 
000000006 90 2 §B i3 CALLS @ DBGSNE REE _DESC : | 
E 83 F 3A A MOVZBL # $1" SP) : 7876 | 
4 Ad 9F OOOAB PUSHAB 52(R4) ; 
000000006 00 $4 8 A CALLS ‘ DBGSMAKE VAL. DESC : | 
04 BE 08 ‘i 000000006 0 £0 : INSY pBesc8 LANGUAGE, #24, #8, @V_VALDESC F 7877 | 
oC AE oF C PUSHAB SYMID_LIST : | 
C AE DD 000¢ PUSHL V_VALBESC : 
69 9 FB cc CALLS H+¥ GSNGET_SYMID 3 | 
A E CF BLBC ; 
08 At DD 0g PUSHL sya DL LIST : 7880 | 
000000006 00 FB 000D CALLS DBGSSTA_LOCK_SYMID : | 
1 pp DC 5$: PUSHL Af : 7881 | 
16 AE 9F OO0DE PUSHAB DUMMY : 


bpse yen hate OG:$9:10 YANGIY SLigses2,y4_0-742, Page 328 


puss 40(R4) 


oF oes 3 

dD PUSHL V_VALDESC : 

67 04 FB ; CALLS 4#, bBESNCOPY _DESC $ 
C AE + EA 6$: PUSHAB VALDESC 3; 7893. 
7E A 8F 9A ED MOVZBL oles loest 8 
OC AE OD Fl PUSH pest 3 

000000006 00 8 FB F4 CALL a, ‘OBE PRIM_TO_VAL 3 
0 FB PUSHL 3 7894 

14 =A f FD PUSHAB DUNE 3 
046 =A F 199 PUSHAB NEWVALUE 3 

18 AE 00 001 PUSHL VALDESC 3 
67 04 fe 8198 CALLS 4&4, DBGSNCOPY_DESC 3 
0 1 RET 3; 7896 


; Routine Size: 266 bytes, Routine Base: DBGSCODE + 2F23 


3; Routine Size: 


1 
1! 
1 ! FUNCTION 
1! Onis r 
1! establ 
i! 
¢ yi 
1! INPUTS 
5 : } 
7907 1 § OUTPUTS 
7908 1! 
7909 1! 
7910 BEGIN 
7911 ENABLE 
791 
791 
7914 END; 
000000006 
0000v 


7 


E$ser}9Re Q0H2:10 YAY. Biss 


ROUTINE PRIM_TO_VAL (PRIM_DESC, TARGET_TYPE, VAL_DESC) : NOVALUE = 


utine is a cover routine for DBGSPRIM_TO_VAL. 
shes a handler to catch error signals from DBG PRIM. TO_VAL, 


and then talts DBGSPRIM_TO_VAL to do the work. 
See DBGSPRIM_TO_VAL in DBGVALUES. 


See DBGSPRIM_TO_VAL in DBGVALUES. 


PRIM_TO_VAL_HANDLER; 
DBGSPRIM-TO-VAL~(.PRIM_DESC, .TARGET_TYPE, .VAL_DESC); 


0000 00000 PRIM_TO_VAL: 
WORD 


-32 V4.0-742 


DBGEVENT .832;1 


° Save nothing 
6D 0010 CF DE 0000 MOVAL 1 F 
7E 08 AC 7D 0000 MOV. =TARGET_TYPE, =(SP) 
04 AC DD 00008 PUSHL PRIM DESC 
00 03 FB O00E CALLS #3, BBGSPRIM_TO_VAL 
04 0001 RET 
0000 0016 1$: «WORD Save nothing 
7E D4 0001 CLRL 3s = (SP) 
5E bb OO1A PUSHL SP 
7E 04 aC D 0001C mova 4 (AP) SP) 
CF 03 FB 9020 CALLS MP ORIN, to. VAL_HANDLER 
04 00025 RET 


38 bytes, Routine Base: DBGSCODE + 3020 


Page ¢3y 


TRIE TEE TELESIS TE TE Tere 
~ 
oO 
— 
> 


—> +) 4 bd —4 -4 +» 


ee 
02.0000 CD CD CD CD 


~“ 
oo 


WN OC OBNAMVE WN “OOOVNOUF ur 


~ 
co 


$ep-1984 00:59: Ax-11 B 
19-00-1984 99:73:89 DEBUG. SR 
ROUTINE PRIM_TO_VAL_HANDLER(SIGARG, MECHARG, ENBLARG) = 


i FUNCTION 
‘ This is the error handler for the routine PRIM_TO_VAL. I 


—> 4 ss 


AAA 
NAVE WN OOONAOUES WN OWOVRHW 


i 
an error e urs during the evaluation of a Priory then th 
og hh Re nvoked and it sets the own variable INVALID_FLA 
ndicate that the Primary is now invalid. 


i INPUTS 


' 
' 
' 
' 
' 
' 
' 
SIGARG = The signal argument vector. 

MECHARG = The mechanism argument vector. 

: ENBLARG = The enable argument vector (EVENT pointer is passed in 
: from here). , 

‘ 

' 

J 


i QUTPUT 
: The OWN variable INVALID_FLAG is set to TRUE. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 . 
BEGIN 
MAP 
ENBLARG: REF VECTORC,LONGI, 
1 


SQV >>> 


SIGARG: REF VECTORC,LONGI; 


If we were unwinding, continue unwinding. 
iF ~SIGARGL1] EQL SS$_UNWIND 
RETURN SS$_CONTINUE; 


Set the OWN flag saying the Primary is invalid. 
INVALID_FLAG = TRUE; 


: Unwind to the caller of PRIM_TO_VAL. 
SETUNWIND(); 

RETURN 0; 

END; 


0000 00000 PRIM_TO_VAL_HANDLER: 
~ WORD Save ahothing 


50 04 AC 00 0000 MOVL IGA RO 
00000920 BF 4 Ad D4} 00 CMPL giRone "#2336 
4 : 000 BNEG 1s 
50 p 1 MOVL 1, RO 
4 0001 RET 
00000000 EF Qi 00 14 1$: MOVL INVALID_FLAG 
E C 00018 CLRO #l ep} 
000000006 00 02 FB 00010 CALLS #2, SYSSUNWIND 


— sss te 


Rciba 


s-32 V 
Dace VEN 


P 5 
age 645 | 


act 


; Routine Size: 


39 bytes, 


Routine Base: 


50 Be tn 


DBGSCODE + 3053 


ee 


529-1984 
~ge7}38e 99:3 


CLRL 
RET 


g:19 AX-11 Bliss-32 V4.0-742 
DEBUG. § Re DaGEVEN ENT .632;1 


RO 


ase 1$-sep-19 4 99:39:18 AX-11 OL igeese V4.0-742 Poe <6? 


7 
v04 14-Sep-1984 6:5 DEBUG. SRC JDBGEVENT .832;1 
; 783? 7338 ! ROUTINE PARSE _WHEN_CONDITION(EVENT): NOVALUE = 
s 7 37 79 § 1 ! FUNCTION 
; 7858 7960 1! This routine calls the parser to parse the when condition. 
3; 7859 7961 1! If any error occurs during the parsing, final handler catches 
; 7860 7962 1! the error message, announce the message, WHEN_CONDITION is set 
; 7861 7963 1! to FALSE in this case, Break point remains set. 
; 786 7964 1! 
3; 786 7965 1 ! INPUTS 
3; 7864 £206 1! EVENT = The address of the event_entry. 
> 7865 7967 1! 
; reee 7968 1 ! OUTPUTS 
vi 7969 1! None. 
3; 7868 7970 1! 
3; 7869 7971 «1 ei a 
3; 7870 797 BEGIN 2 
; 7871 797 
3; 787 7974 MAP 
3; 787 7975 EVENT: REF EVENTSEVENT_DESCRIPTOR; ! Event entry pointer 
: 7874 7976 
3; 7875 7977 BUILTIN CALLG; 
: 7876 7978 
3; 7877 7979 LOCAL 
3; 7878 7980 CONDITION, ' Local when condition value 
3; 7879 7981 CONDITION_VAL : DBGSSTG_DESC, ! Condition Value Descr 
3 0 798 CONDITION_STR : DBG$STG_DESC, ! Condition String Descr 
: 7881 798 CONDITION_TXT : REF VECTOR C, WORD], ! Condition text 
3; 788 7984 CONDITION _RDX, ! radix 
3 788 7985 2 MESSAGE _VECT, ' Message Vector 
37 7986 § WHEN_ENTRY : REF EVENTSWHEN_DESCRIPTOR; ! WHEN Descriptor 
3; 7885 7987 
3; 7886 7988 ENABLE 
3; 7887 7989 DBGSF INAL_HANDL; 
3; 7888 7990 
3; 7889 7991 
; 7890 799 ! Assume WHEN condition is always true to begin with, so just in 
3; 7891 799 ! case, bad things heppened during the calls to other routine, 
: 789 799% i break point is still taken. 
: 7893 7995 ‘ 
3: 7894 7996 WHEN_CONDITION = TRUE; 
3; 7895 7997 
3; 7896 7998 
3; 7897 7999 ! Point to the WHEN entry. 
3 7398 000 : 
3; 7899 001 WHEN_ENTRY = .EVENT CEVENTSL_WHEN); 
3; 7900 Bn6 
3; 7901 00 
3 a4 O88 : Point to the WHEN expression. 
$ aa Be CONDITION_TXT = .WHEN_ENTRY CEVENTSL_WHEN_POINT); 
3 P208 poe 
3 a4 st] : Set up the condition descriptors. 
3; 7909 Bi CONDITION_STR CDSC$B_CLASS) = DSCSK_CLASS_S; 
3; 7910 big CONDITION_STR COSCSB_DTYPE) = DSCSK_DTYPE_T; 
3; 7911 01 CONDITION-STR CDSCSW-LENGTH] = .CONDITION-TXT (0); 


. 7 | 
DBGEVENT 16-Sep-1984 00:59: AX-11 Bligs-32 v4.0-742 p 8 
voe 13r808- 138s 99:78:59 | oadG Bk Sbecevent asec age 938 


CONDITION_STR CDOSCSA_POINTER] = CONDITION_TXT (1); 


: 4 up some globals that C uses for purposes of preseving the 
: original casing. 


if .DBG$GB_LANGUAGE EQL DBGSK_C 
THEN 


—> tb 


FUN“ OOONO VEN“ OOONOUS 


DBGSGL-UPCASE_COMMAND_PTR 


BEGIN 
DBGSGL_ORIG_ COMMAND PTR = oe 
DBGSGLUPCASE COMRAND-PIR! cs 


£13; 
C1] + .CONDITION_TXTCO) = 1; 


: Determine the current radix. 
CONDITION_RDX = .DBGSGB_RADIXCDBG$B_RADIX_INPUTJ; 


COODONOVUEWN —“OVODOnNO 


INTIPOMIPIMINONONONUN) 2 3 2 2 


>>> >>> > >>> >>> >>. 
DIDGODOOODOOOOO 


Obtain a value descriptor for the condition. 


OOCCCCOCOCOOCOOOOOCOOCOCOCoOoo 


: é 

; 8 

3 7931 803 ! 

3; 793 : 3 IF NOT DBGSNPARSE_EXPRESSION 
3; 793 2 (CONDITION_STR, 
3; 7934 80 -CONDITIORN_RDX, 
3; 7935 8037 CONDITI | 
: 7936 8038 TOKENSK_TERM_NONE , 
: 7937 th MESSAGE_VECT 
3; 7938 040 ) 

: 7939 8041 THEN 
3; 7940 944 CALLG (.MESSAGE_VECT, LIBSSIGNAL); 
3: 7941 804 
: A a 8044 
3 794 8045 ! Set up the vax descriptor for the condition. 
3 7944 8046 ! For now, we just declare the descriptor to be longword integer, 
3: 7945 8047 i since this causes the fewest problems in the type converter. 

3; 7946 8048 ' Eventually, if we get a Boolean type and all languages support | 
: a of 4 epee it then we will build a target descriptor of this type. 
3 7949 8 CONDITION_VAL CDSCS$B_CLASS] = DSCSK_CLASS_S; | 
3; 7950 O36 CONDITION_VAL CDSCSB_DTYPE] = DSCSK_DTYPE_L; 
3; 7951 805 CONDITION_VAL CDSCS$W_LENGTH) = 4; 
3; 795 8054 CONDITION_VAL COSCSA_POINTER] = WHEN_CONDITION; 
3; 795 055 CONDITION_VAL COSCSL_POS) = 0; 
3; 7954 B26 

3; 7955 b2 

3; 7956 8 ' Special case for PASCAL. PASCAL returns descriptors 

3 aah B28 of type Boolean (dsc$k_dtype_tf) for relational expressions. 

3; 795 061 IF .DBGSGB_LANGUAGE EQL DBGSK_PASCAL 
3; 7960 O66 THEN 

3; 7961 06 BEGIN 

3 796 064 CONDITION_VAL CDSCSB_DTYPE] = DSCSK_DTYPE_TF; 

3: 796 065 CONDITION_VAL CDSCS$W_LENGTH] = 1; 

3: 7964 END; 

3 AF 

3 7369 be ! Do the conversion from value descriptor to integer. NOTE THAT 

3; 7968 8070 ' J°M REUSING THE DESCRIPTOR, AND CONDITION LONGWORD. 


7 
DBce yew 1b-Se0-1984 0:59: 


; 7368 071 ! 

3 7970 re if NOT DBGSNTYPE_CONV (.CONDITION, 

: 7971 7 BGSK_DEFAULT 

; 1906 7%, DBGSK-VAX_DESC, 
Be OBR peeve 
> 7975 83$ ) . 

: 797 078 THEN 

; 297 079 CALLG (.MESSAGE_VECT, LIBSSIGNAL); 
; 7378 081 RETURN 0; 

: 7980 082 END; 


003C 00000 PARSE _WHEN CONDI 
WORD 


5 00000000° fh 9E 0000 MOVAB 
4 000000006 9E 000 MOVAB 
3 000000006 % + 3919 MOV 
SE c2 0001 SUBL 
6D 009D ff DE OOO1A MOVAL 
5 1 00 QO01F MOVL 
0 4 ~ DO 00022 MOVL 
8 0 ad D 4 6 MOVL 
€ AO 00 0002A MOVL 
OA as O10E BF 80 88 E MOVW 
5 g C 00 MOVZWL 
08 AE ge 0037 MOVW 
51 02. A 3 Baae MOVAB 
oc OA 51 3 003 MOVL 
0 $3 1 00043 C 
1 is se BNEQ 
000000006 00 3} DO 0004 MOVL 
000000006 00 1 D0 0004F MOVL 
000000006 00 01 A240 9E 00056 MOVAB 
50 000000006 00 9A OO0SF 18: MOVZBL 
04 AE OF he: PUSHAB 
7E Bs 0 CLRL 
08 A F 68 PUSHAB 
5 D PUSHL 
000000006 ne 05 re 7 CALLS 
04 50 EB OOO/A UBS 
64 es E FA 70 CALLG 
14 AE 01080004 F +4 1 2$: VL 
18 AE 65 . 9 VAB 
1c OA CLRL 
CMPB 


19 AX-11 Bliss-32 V4.0-742 
DEBUG. SRC JDBGEVENT .852; 1 


TION: 

Save R2,R3,R4,R5 
WHEN CONDITION, RS 
LIBSSIGNAL, R4 
D GSB LANGUAGE. R3 


» (FP 
#1, WHEN_CONDITION 


(ROS, WHEN 


RY 
ENTRY me (ae ide 
_ 


2-9 Ww2- & eT 
—8PDW — ANMONrNroNr<c 
— 
o 
@ 
ag “+oz 
s at 
a a 
Cc o 
— 


BSSIGNAL 


1 
TION. VAL 
CONDITION_VAL +4 


won 
rw 
a 
bap OWNS eee ww 
o S02 SSSe——- 


z& 
= 
oO 
o 


Pane $3) 


7957 


2 

16- =Sep- 4 9: AX-11 Bliss-32 v4.0-742 Page 230 
ease 488s PSiFBiE «| HaNSNS Shi gsaze yes %5 eS, ah +34 
7E 82 ROVZBL #130, -(SP) ; 

10 PUSHL  CONDITI : 

000000006 00 CALLS A DBGSNTYPE_CONV : 
4 BLBS 4 ; 
64 04 cALLG amESSAGE_VECT, LIBSSIGNAL ; 079 | 
.WORD Save nothing : oo 

PUSHL * ae , 

? 04 MOVO 4(AP), =(SP) ; 

00000000¢ 3 CALLS #3, DOGSFINAL _HANDL ; 


3; Routine Size: 205 bytes, Routine Base: DBGSCODE + 307A 


; 7981 8083 1 


7 
1S-sSep-1964 00:59:10 YAK-1 BLigs-32 v4.0-742 Page 


Fasle for No, this is not the frame caused the event. 


79 3 9 4 ROUTINE MATCHRIGHT_CALL_FRAME(EVENT) = 
3 5 i FUNCTION 

: This rou ~ is used to match tee qnect call frame at the time 
79 : we set bit 15, or turn off bit 15 in saved PSW and the time we got 
44 : reserved operand fault. 
7990 091 i For FP pointer may be changed inside of the call by the called 
7991 O36 ! routine. So to be safe, we don't just compare the pointers, we 
r338 84 : check some call frame contents as well. 
7994 95 1! INPUTS 
7995 84 : Event entry for the event we consister. 
r399 09 i OUTPUTS 
7998 $99 True for Yes, this is the frame caused the event, 

i 


me 
EVENT: REF EVENTSEVENT_DESCRIPTOR; 


LESFELLS 


PRORSPOROPOROPOPONOPOPONONONOPOPPONONONONIPONUNOPOPININONOPOPPIPUNPINPIDY 4 = 


LOCAL 
CALL. FRAME: REF BLOCKC,BYTE], ! Pointer to FP 
CALL_MASK: WO ' Mask in Call frame 
RUN_FRAME: REF BLOCKC,BYTE], | FP was saved in DEBUG run frame 
RUN“MASK: WORD; i 


oo 


MEW OC OCOVNOAUS WN —O OONAUS WN OOM 


Mask in current FP 


If there is no FP existed, simply returns. 

IF .EVENT CEVENTSL_USERS_FP] EQL 0 THEN RETURN FALSE; 
: Dig out current FP from DEBUG runframe. 

RUN_FRAME = .DBGSRUNFRAME CDBGSL_USER_FP); 


! If the call frame saved in event entry is the same as current FP, 
got it, no problen. 


if .EVENT CEVENTSL_USERS_FP] EQL .RUN_FRAME 
RETURN TRUE; 


' Need to do further investigation. Dig out the contents of the call 
: frame was saved from Call frame. 


CALL_FRAME = .EVENT CEVENTSL_CALL_FRAME); 
IF .CALL_FRAME EQL 0 THEN RETURN FALSE; 


! Compare the mask. But don’t compare the stack alignment, compare 
} register mask and calls flag. Compare saved AP, and FP. 


CALL_MASK = .CALL FRAMEC SF SW SAVE ASK); 
RUN MASK = .RUN FRAMECSF W SAVE MASK); 
CALC_MASK = .CACL_MASK AND 2X'7FFF 


ee a a st nt 


A) ed ad ed ed od od 
ke ee ed ad ed ad od 


ssssssssssss 
OQoooooceceoeoo 3 
(Cd Gd Cd Cd Cd Cd CD Cd C9 CO OD G9 Cd Cd Cd Cd CD Cd OD CD CD CD CO CD 0D CD CD OD CD. 0D CD CD CD CD. 09 09 0D G9 0D 0000 


o oo 
POPOPORPENOPONONY: 


io 


=] 


a a a a a 9 ts ws 4 4 9 4 4 4 


oo 
w 
~<o 
0.00 09.00 On GP 0d 00 0d 0d Cd 09 0D 09 C0 CO 


Boni ctie bie Tes leatint Rll ten: Rao ae ee ale 


bese rSoseo-1984 09:59:19 


. RUN + ¥ UX" 7FFF'; 


AX-11 BL Liss s-32 V4.0-742 
DEBUG. SRC DaGEVENT 85231 


; 8040 141 
H ‘eh 138 CALL. _MASK QL MASK) A AND” 
3 ¢ 14 (CALL ~FRAM AMELS SFSi ROAVE AP] EQL .RUN_FRAMECSFSL_SAVE_AP]) AND 
: ok \ee CALL? FRAME SFSL~ ~SAVE_ FP) EQL «RUN- FRAMELSFSL— “SAVE_ FPJ) 
3 xe? 148 NBEGIN 
5 be? 138 ' Got it, update the FP to current FP. So we can set/clear bit 15 
: ee \3 in saved PSW in the correct FP. 
3; 8050 1 ’ EVENT a FETS -USERS_FP] = .RUN_FRAME; 
3 p23 : ¢ RETURN TRUE; 
3 beg 154 ELSE 
3 tts ! 5 RETURN FALSE; 
§ Hite 13 END; 
003C 00000 MATCH_ an ‘ie FRAME: 
Save + R3,R4,R5 
50 04 AC DO 00002 ane EVENT RO * 
24 Ad DS 00006 TSTL 6(ROS 
46 13 00009 BEQL es 
51 000000006 00 »o0 44 MOVL Bee S Oy RON FARR RUN_F RAME 
51 24 4 D1 0001 CMPL 6(RO), RUN_FRAME 
35 13 B38 BEQL 1$ 
52 3C A 00 001 MOVL 60(RO), CALL_FRAME 
33 13 OO0IC BEQL 2$ 
2% 06 A2 60 ObS5 MOVW 6(CALL_FRAME), CALL_MASK 
3 06 Al B60 000 MOVW 6(RUN_FRAME), RUN_MASK 
55 54 of 99 EF 00026 EXTZV "0. ats, CALL_MASR, RS 
4 BO 00028 MOVW RS, Et. 
55 53 F 99 EF 000 . EXTZV #0, #15, RUN_MASK, R5 
; BO 000 MOV - RUN 
54 %) 00 CMPW ALL MASK, RUN_MASK 
16 12 000 BNEQ 
08 Al 08 A2 01 000 CMPL (CALL_FRAME), 8 (RUN_FRAME) 
OF \¢ Bae BNEQ $ 
oc Al 0c 08 ? r euch (CALL_FRAME), 12(RUN_FRAME) 
24 a0 g 06 0069 MOVL RUN_FRAME , 36(RO) 
50 01 »? bcp 1$: MOVL #i, RO 
29 RET 
50 Be 051 2$: CLRL RO 
4 00053 T 
3 Routine Size: ytes, outine Base: + 
Routine Si 84 b Routine B DBGSCODE + 3147 
3; 8057 138 1 
Py ; nado ule 
34 14 «4 ' End of modul 
3; 8060 161 0 ELUDOM 


SeSe Se Se Se Ge Se Se Se Se Se Se Se Ge Se Se Se Fe Se Ge Be Se Se Se Be Se 


1b-sep-1984 09:59:19 = YANe11 Li 


$eeze V4.0-742 
DEBUG. SRC JOBGEV 


ENT .632;1 


eEXTRN LIBSSIGNAL, SYSSUNWIND 


PSECT SUMMARY 
Name Bytes Attributes 
DBGSGLOBAL 6? NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
DBGSOWN 328 NOVEC, URI. RD eS Oe LCL, REL, CON, PIC,ALIGN(2) 
DBGSCODE 199 NOV CNOWRT RD, ME, SHR, LCL, REL, CON, PIC,ALIGN(O) 
DBGSPLIT 450 NOVEC, NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
Library Statistics 
eucecese Symbols -------- Pages Processing 
File Total ioaded Percent Mapped Time 
$255$0UA28: CSYSLIBIJLIB.L32;1 18619 0 100 0:01. 
“$255$DUA B:bD DEBUG. OBJ STRUCDEF 43931 3 3 § § 09: 0:8 
55$DUA28: (DEBUG.0BJ JDBGLIB.L 32; 1 154 PY 1 97 0:02. 
55$DUA28 : (DEBUG.0BJ DE TRECRDS. (32:1 “— we - - 0000.4 
$255$0UA28: (DEBUG. OBJ ]DBGMSG.L32; 1 386 2 é 2 00:00. 
Saez: EDEEtG ob) IDBCCEN:T 33; 1 150 4 ‘5 00: 00:3 
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